- Katılım
- 26 Mart 2012
- Mesajlar
- 253
- Excel Vers. ve Dili
- MİCROSOFT EXCELL OFFİCE 2007
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)
If Target.Address(0, 0) <> "B9" Then Exit Sub
Sayfa1.Range("A65536").End(3)(2, 1) = Target.Value
Sayfa1.Range("A65536").End(3)(1, 2) = Target.Offset(0, 1).Value
End Sub