- Katılım
- 23 Ağustos 2006
- Mesajlar
- 34
arkadaşlar başka bir çalışşma sayfasında sadece ilgili sütunları görmek istiyorum.ekli listede belirttim. teşekkür ederim
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sn hamzasüzeryani her defasında düğmeyemi tıklayayım.teşekkürler
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