[KwasneJablko]

Hej,

czy ktos moze mi pomoc. Jak przez VBA osiagnac "Result" czyli zeby mi po prostu zliczał tak jak przez COUNTIF w arkuszu.

Wkleilem formule po prostu ale nie daje mi to spokoju ze nie wiem jak to przez VBA ogarnac. Pomoze ktos?

doszedlem tak daleko:)

Sub test()

Dim lastrow1 As Long
Dim lastrow2 As Long
Dim i As Long

Dim rng1 As Range
Dim rng2 As Range
Dim cell As Range

lastrow1 = Sheets("Master").Range("A65536").End(xlUp).Row
lastrow2 = Sheets(4).Range("A65536").End(xlUp).Row

Set rng1 = Sheets("Master").Range("B" & lastrow1)
Set rng2 = Sheets(4).Range("A" & lastrow2)

Czyli mam okreslone 2 range

Teraz chybaFor each cell in rng2 powinno byc ale mam dziure w glowie no.

#vba #excel

[croppz]

Teraz chybaFor each cell in rng2 powinno byc ale mam dziure w glowie no.

@KwasneJablko: po czym ty tam chcesz iterować jak oba range mają po jednej komórce?

A tak w ogóle to użyj dictionary, wszystko sobie zliczysz w jednym przejściu.

[krzysiegc]

@KwasneJablko: lastrow zrob tak:
Dim lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
If lastrow >= "2" Then
Set rng1 = Sheets("Master").Range("A2:A" & lastrow)

[krzysiegc]

@KwasneJablko: A co do reszty to musisz mi pokazac spreadsheet zeby to mialo sens bo nie mam pojecia co ty chcesz zrobic

[KwasneJablko]

@krzysiegc: mamy Data i Data1 i chce uzyskac Result czyli zeby mi zliczyl po prostu ile wystepuje A w Data, ile B itd. Wlasnie dictionary to robi tylko ze jeszcze nigdy go nie uzywalem :/

[brak_nicku]

Wkleilem formule po prostu ale nie daje mi to spokoju ze nie wiem jak to przez VBA ogarnac

@KwasneJablko: VBA też może "wkleić" formułę i zamienić ją na wartości w razie potrzeby i trzeba specyficznych warunków i sporo doświadczenia żeby kod kod VBA bez użycia formuł zrobił to znacznie wydajniej

[brainac]

@KwasneJablko: Jeśli chcesz robić swoim sposobem, to zawsze lepiej na tablicach.

[krzysiegc]

to nie lepiej poprostu używać =countif() ? chodzi ci o to żeby liczyło ile razy wystepuje literka z Data2 w Data? ja bym zrobił =countif(F:F,H3) i przeciagasz do konca, mozesz nawet mega łatwo zrobić makro ktore same będzie wpisywac funkcje i przeciągać. Liczenie tego za pomocą VBA bedzie chyba zbyt długie i nie wydajne.

[krzysiegc]

@KwasneJablko: chcesz mogę kod wysłać na PW

[KwasneJablko]

@krzysiegc: dzieki tak to umiem :)

With Sheets("Copy Paste Merchant List here")
.Range("F2").Formula = "=COUNTIF(Master!$B$2:$B$100000,'Copy Paste Merchant List here'!A2)"
.Range("F2").Copy
.Range("F3:F"

[KwasneJablko]

@krzysiegc ale dzięki

[krzysiegc]

@KwasneJablko: Luzik Mirasku ( ͡° ͜ʖ ͡°)
Tak tylko od siebie dodam, że twój kod wpisuje funkcje w komórki w koknkretnym Range, natomiast mój działa na zasadzie takiej, że to VBA, a nie funkcja liczy komórki i podaje wartość w komórkach obok. Powodzonka

Edit: usunąłem mój post bo tam moje imię i nazwisko było lul

[KwasneJablko]

@krzysiegc: ale czekaj czekaj. To pokaż swój kod jescze raz

[krzysiegc]

@KwasneJablko: ( ͡° ͜ʖ ͡°)

[krzysiegc]

@KwasneJablko: Odpalasz Sub o nazwie test() i on zaznacza sobie pierwsza wolna komorke w wybranej kolumnie i potem po kolei oblicza