- Katılım
- 25 Mayıs 2022
- Mesajlar
- 2
- Excel Vers. ve Dili
- office 2013
Merhaba forumdaş arkadaşlarım excell de örnegin B1 SÜTÜNÜNA YAZDIĞIM SAYILARI(SADECE SAYILAR BU SUTUNA YAZILACAK ) A1 SÜTÜNÜNE ALT ALTA SIRAYLA NASIL EKLEYEBİLİRİM.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
If IsNumeric(Target) Then
If Cells(1, 1) = "" Then
Cells(1, 1) = Target
Else
Cells(Rows.Count, 1).End(3)(2, 1) = Target
End If
End If
Target.Select
End Sub