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

• #48289 Pakliman tag oke #48282

  Új Válasz 2022-01-24 14:40:25 #48289

  Ú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

  

  Pakliman

  tag

  válasz oke #48282 üzenetére

  Szia!

  Későn vettem észre a javítandót

  Sub Fut()
Dim us As Long
Dim sor As Long
Dim elsősor As Long

'Utolsó sor meghatározása
us = Columns("AC").Rows(Rows.Count).End(xlUp).Row

elsősor = 2 'nem tudom, Nálad melyik sorban kezdődik:(
For sor = elsősor To us
'Ha a sorban a G és H oszlopban sincs még semmi...
If (Cells(sor, "G") & Cells(sor, "G")) = "" Then
'Feltétel vizsgálata...
If feltétel = True Then
Cells(sor, "G") = "beírandó..."
Cells(sor, "H") = "beírandó..."
End If
End If
Next sor

End Sub

• #48286 Pakliman tag oke #48282

  Új Válasz 2022-01-24 14:17:52 #48286

  Ú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

  

  Pakliman

  tag

  válasz oke #48282 üzenetére

  Szia!

  Egy nagyon leegyszerűsített kód, ami az elvet mutatja (egy lehetőségként):
  Sub Fut()
Dim us As Long
Dim sor As Long
Dim elsősor As Long

'Utolsó sor meghatározása
us = Columns("AC").Rows(Rows.Count).Row

elsősor = 2 'nem tudom, Nálad melyik sorban kezdődik:(
For sor = elsősor To us
'Ha a sorban a G és H oszlopban sincs még semmi...
If (Cells(sor, "G") & Cells(sor, "G")) = "" Then
'Feltétel vizsgálata...
If feltétel = True Then
Cells(sor, "G") = "beírandó..."
Cells(sor, "H") = "beírandó..."
End If
End If
Next sor

End Sub

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