ilgisiz satırları silmek

[hamzasüzer1]

arkadaşlar başka bir çalışşma sayfasında sadece ilgili sütunları görmek istiyorum.ekli listede belirttim. teşekkür ederim

 

[Ali]

Dosyanız ektedir.

 

[hamzasüzer1]

ali bey teşekkür ederim ama ben yazdıkça yeni doneleri öbür sayfaya otomatik olarak yazabilirmi/aktarabilirmi. yani her defasında düğmeyemi tıklayayım.teşekkürler

 

[mehmett]

Fonksiyonlu çözüm ekte.

 

[Ali]

yani her defasında düğmeyemi tıklayayım.teşekkürler

Sn hamzasüzer

Sheet2'nizin sayfa sekmesini sağ tuş ile tıklayıp kod görüntüle kısmını seçtikten sonra aşağıdaki kodları yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim b
b = 1
For Each aralik In Worksheets("Sheet2").Range("L3:L1000")
If aralik <> 0 Then
    b = b + 1
    Worksheets("Sheet3").Cells(b, 1) = aralik.Offset(0, -9)
    Worksheets("Sheet3").Cells(b, 2) = aralik.Offset(0, -3)
    Worksheets("Sheet3").Cells(b, 3) = aralik
   End If
Next
End Sub