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

• #32151 Delila_1 veterán Pikkolo^^ #32149

  Új Válasz 2016-07-22 12:21:50 #32151

  Ú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

  

  Delila_1

  veterán

  válasz Pikkolo^^ #32149 üzenetére

  Nem látszanak a sor- és oszlopazonosítók a képen.

  Modulba tedd a makrót.

  Sub Kigyujtes()
Dim sor As Long, oszlop, ide As Long

sor = 3
Do While Cells(sor, "B") <> ""
oszlop = Application.Match(Cells(sor, "C"), Rows(2), 0)
If VarType(oszlop) = vbError Then
MsgBox "Nincs " & Format(Cells(sor, "C"), "yyyy.mm.dd") & " dátum a 2. sorban"
Else
ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Cells(ide, oszlop) = Cells(sor, "B")
End If
sor = sor + 1
Loop
End Sub

  Nézd meg a képen, hogy a keresendő dátumokat tartalmazó sor feljebb van, mint a C oszlop első dátuma, ez fontos.

  

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