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

• #46905 Pakliman tag PistiSan #46904

  Új Válasz 2021-06-09 11:12:17 #46905

  Ú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 PistiSan #46904 üzenetére

  Szia!

  Egy lehetőség:
  Sub Kitölt()
Dim us As Long
Dim sor As Long
Dim s As String

us = Cells(Rows.Count, 2).End(xlUp).Row
For sor = 1 To us
'végig megyünk a sorokon...
If Cells(sor, 1) <> "" Then
'Ha az 1. oszlopban van szöveg,...
'akkor eltároljuk...
s = Cells(sor, 1)
Cells(sor, 1) = "TÖRLENDŐ" 'Csak a későbbi egyszerűbb azonosítás miatt...
Else
'ha nincs szöveg, akkor...
'ha 2. oszlopban van szöveg, akkor az . oszlopba beírjuk az elmentett szöveget
If Cells(sor, 2) <> "" Then Cells(sor, 1) = s
End If
Next sor

'Most jön az Extra, a fölösleges sorok törlése...
For sor = us To 1 Step -1
If Cells(sor, 1) = "TÖRLENDŐ" Then Rows(sor).EntireRow.Delete
Next sor

End Sub

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