- Katılım
- 2 Şubat 2007
- Mesajlar
- 194
- Excel Vers. ve Dili
- Office 2007 Tr
- Altın Üyelik Bitiş Tarihi
- 31/03/2022
Ekte gönderdiğim dosyaya veri alma makrosu yapmak istiyorum. Acemiyim bir türlü beceremedim. Yardımcı olursanız sevinirim. Şimdiden teşekkürler
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
deg = Array(4, 21, 38)
Sheets("makrolu çözüm").Cells(deg(Target.Row - 1), "a") = Target
End Sub