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

• #20859 bteebi veterán Psytróger #20857

  Új Válasz 2014-03-09 14:38:11 #20859

  Ú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

  

  bteebi

  veterán

  válasz Psytróger #20857 üzenetére

  Ha jól értettelek, akkor ez jó lesz:

  Sub melleir()
  Dim i As Integer, LastRow As Integer
  LastRow = Columns(1).Find("*", SearchDirection:=xlPrevious).Row
  For i = 1 To LastRow
  If Cells(i, 1).Value = "" Then
  i = i + 1
  End If
  If Cells(i, 1).Value = Cells(i, 2).Value Then
  Cells(i, 4) = 1
  Else: Cells(i, 4) = 2
  End If
  Next i
  End Sub

  Működésre bírni az itt leírtak alapján tudod. Nem kell semmit se lemásolnod, az egész tartományra működik.

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