Bez komplikowania problemu poniższe makro powinno spełnić warunki:
Sub szukaj_dodaj() Dim wiersz As Long, szukana1 As String, szukana2 AsInteger
szukana1 = "Model 1"
szukana2 = 1
For wiersz = 1 To 5 If Cells(wiersz, "A") = szukana1 Then If Cells(wiersz, "B") = szukana2 Then
Cells(wiersz, "C") = Cells(wiersz, "C") + 1 EndIf EndIf Next wiersz EndSub
napisał: krzysiek.banan postów: 7
umieszczony: 29 listopada 2012 12:05
Witam.
Próbuję stworzyć makro, które będzie wyszukiwało wartości w dwóch kolumnach i w przypadku znalezienia dodawało wartość do trzeciej.
Aby było jaśniej arkusz wygląda tak
Model | Numer | Ilosc
--------------------------------------------------
Model 1 | 1 |
Model 2 | 1 |
Model 1 | 2 |
Model 2 | 2 |
Model 3 | 1 |
Makro ma wyszukiwać dane Model i Numer. W przypadku znalezienia poprawnego ma w kolumnie ilość dodać 1 (w wierszu, w którym znalazło kombinację)
Kombinacja Model - numer jest zawsze unikatowa.
Próbowałem różnych funkcji ale zawsze zatrzymywałem się w momencie gdy makro znalazło pierwszą komórkę która spełnia warunek model = Model 1
i mimo że kolumna numer nie spełnia warunku zatrzymywało się.
wstecz 1 dalej
otwarty rozpoczął: krzysiek.banan
postów: 2
