Stanovil jsem si zdroj i cíl
Kód: Vybrat vše
With Worksheets("Zdroj")
Set SBlk = .Range("S2:S" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
Set TCll = Windows("Cil.xlsm").Worksheets("Cil").Range("F3")
A teď mu potřebuji říct, prohledej sloupec "H" v cili a pokud obsahuje hodnotu ze zdroje ze sloupce "Y" tak nic, pokud cil tuto hodnotu ještě neobsahuje kopíruj...
Kód: Vybrat vše
For Each SCll In SBlk.Cells
tady potřebuji dopsat podmínku, pakliže TCll sloupec "H" neobsahuje hodnotu SCll.Offset(0, 6).Value " Then
With TCll
.Offset(TOfsR, 0).Value = SCll.Offset(0, 0).Value
TOfsR = TOfsR + 1
End With
End If
Next SCll
Díky předem za pomoc...