Hücre Değerine Göre Seçimi Aşağıya Kaydırma

[myefsane]

Merhaba A1 Hücresine 20 yazıyorsa makroyu çalıştırdığımda B2 ile D2 Hücresini köşede + olup aşağıya çekeriz ya 20 hücre aşağıya çekmeyi sağlayabilir miyiz?

 

[Necdet]

Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
A1 hücresindeki değer değiştiğinde çalışacaktır.

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

 

[myefsane]

Range("B2:D2").Select
    Selection.AutoFill Destination:=Range("B2:D" & [A1].Value2 + 1), Type:=xlFillDefault

Şöyle yaptım çok işime yaradı hocam eline sağlık

 

[Necdet]

Ben de merak ediyordum böyle bir soru ne demek diye, sizin amacınız farklıymış güle güle kullanınız.

 

[myefsane]

Köşeli parantezi öğrendim sayenizde... Ne amaçlı kullanılır köşeli parantez.

 

[Korhan Ayhan]

Alternatif;

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

 

[Necdet]

Köşeli parantezi öğrendim sayenizde... Ne amaçlı kullanılır köşeli parantez.

A1 hücresini vba'da değişik şekillerde belirtebilirsiniz.
Range("A1"),
cells(1,1)
cells(1,"A")
[A1]
Hücre grubu için de aynı mantık geçerli
Örneğin A1:C5
Range("A1:C5")
range(cells(1,"A"),cells(5,"C"))
[A1:C5]
gibi