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 Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("B2:D" & [A1].Value + 1).Select
End Sub
Option Explicit
Sub Auto_Fill()
Range("B3:D" & Rows.Count).ClearContents
If IsNumeric(Range("A1")) Then
Range("B2:D" & Round(Range("A1"), 0) + 1).FillDown
Else
MsgBox "A1 hücresine sayısal değer giriniz!", vbCritical
End If
End Sub
A1 hücresini vba'da değişik şekillerde belirtebilirsiniz.Köşeli parantezi öğrendim sayenizde... Ne amaçlı kullanılır köşeli parantez.