Öncelikle Moderatör arkadaşlardan bu konuyu silmemelerini özellikle rica ediyorum, konuyla ilgili benzer anlatımlar olmuş olabilir ancak ben yapmayı beceremedim birtürlü. Yardımcı olmak isteyen arkadaş varsa dosya ekte içinde yapılmak istenilen yazılmıştır.Şimdiden emeği geçen arkadaşlara teşekkür ederim.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Şartlı Listeleme
- Konbuyu başlatan sinful
- Başlangıç tarihi
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
Aşağıdaki kodu deneyebilirsiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If [C35] = "A Blok" Then Sayfa1.[D7:F12].Copy Destination:=Sayfa2.[D43].End(3).Offset(1)
If [C35] = "B Blok" Then Sayfa1.[I7:K12].Copy Destination:=Sayfa2.[D43].End(3).Offset(1)
If [C35] = "C Blok" Then Sayfa1.[D17:F22].Copy Destination:=Sayfa2.[D43].End(3).Offset(1)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If [C35] = "A Blok" Then Sayfa1.[D7:F12].Copy Destination:=Sayfa2.[D43].End(3).Offset(1)
If [C35] = "B Blok" Then Sayfa1.[I7:K12].Copy Destination:=Sayfa2.[D43].End(3).Offset(1)
If [C35] = "C Blok" Then Sayfa1.[D17:F22].Copy Destination:=Sayfa2.[D43].End(3).Offset(1)
End Sub
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,094
- Excel Vers. ve Dili
- Excel, 365 - İngilizce