C sütunu dolu ise dolu satırın altına

[honestman]

Merhaba,

Sheet1 de c sütunu dolu olanları bir buton yardımı ile sheet2 de dolu olan satırların altına nasıl kes yapıştır yaparak sheet1 deki boş kalan satırları nasıl silebiliriz?

 

[honestman]

Komplike bir şey mi istedim acaba ? Yol gösterir misiniz.

 

[Orion1]

Komplike bir şey mi istedim acaba ? Yol gösterir misiniz.

Örnek dosya eklerseniz belikde daha hızlı yanıt alabilirsiniz.

 

[honestman]

sayfa 1 de D sütununda araçlara her çıkış tarihi verildiğinde Sayfa 2 deki daha önce çıkarılmış araçların altına ilgili satırı kesip yapıştırmasını istiyorum. Sayfa 1 de çıkış tarihi verilen araç kalmayacak, her araç çıkış tarihi girdiğimde sayfa 2 deki diğer çıkan araçların altına ekleyecek bir command buton yardımıyla

Sub Ern()

Dim s1 As Worksheet, s2 As Worksheet

Dim bul As Range, satır As Long

Set s1 = Sheets("Sheet1")

Set s2 = Sheets("Sheet2")

Application.ScreenUpdating = False

For Each bul In s1.Range("D3:D" & s1.Range("B65536").End(3).Row)

If bul.Value > 0 Then

satır = satır + 1

bul.EntireRow.Copy

s2.Select



Cells(satır, 1).PasteSpecial


End If

Next bul



Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

 

[honestman]

Desteğinizi rica ederim.

 

[honestman]

Konu güncel.