Új hozzászólás Aktív témák

• #4434 AvLav csendes tag Gabcsika #4433

  Új Válasz 2009-02-01 21:35:43 #4434

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  AvLav

  csendes tag

  válasz Gabcsika #4433 üzenetére

  Szia!

  Én valami hasonló makróval próbálkoznék, bár amit most itt mutatok még hagy egy kis kívánnivalót maga után:

  Sub szamol()
  
  Sheets("Munka2").Select
  lastRow = Range("A65535").End(xlUp).Row
  
  Sheets("Munka1").Select
  lastRow2 = Range("A65535").End(xlUp).Row
  
  Dim szamlalo
  
  For i = 1 To lastRow
  Sheets("Munka2").Select
  x = Range("A" & i).Value
  szamlalo = 0
  For j = 1 To lastRow2
  Sheets("Munka1").Select
  y = Range("A" & j).Value
  If (y = x) Then
  szamlalo = szamlalo + 1
  End If
  Next j
  Sheets("Munka2").Select
  Range("B" & i).Value = szamlalo
  Next i
  
  End Sub

  !!! Ez a makró feltételezi, hogy a Sheet1-en minden A oszlopbeli elem mellett van a B oszlopban érték

Új hozzászólás Aktív témák