Witam,
Potrzebuje wskazówki/pomocy do poprawienia funkcji która ma szukać określony tekst i zwracać sumę danych z innej kolumny.
Chciałbym aby funkcja w kolumnie D na podstawie wzoru z C szukała taki tekst w bazie A i zwracała wartość z bazy B
Udało mi się zrobić tak zbyt sumowała tekst ale nie wiem jak zrobić aby brała wartość z komórki obok czyli kolumny B
Czyli przy P2 w D powinno być 2 czy P3 2 przy P4 1 itd.
Function pietro(x As Range, zakres1 As Range)
Dim cell As Range
Dim wynik, i, j, z
For Each cell In zakres1
i = Mid(cell.Text, 2, 1)
j = Mid(x.Text, 2, 1)
If i = j Then
z = cell.Value
wynik = wynik + z
pietro = wynik
End If
Next cell
End Function
Z góry dziękuje za pomoc
Pozdrawiam,
T