Hücre Aralığı seçimi

[leonadies]

Merhaba Üstadlar
Aşağıdaki kodla yapmaya çalıştığım şey o an aktif olan hücrenin sol yanındaki iki hücreyi seçip içindeki formüllerle
Selection.AutoFill ile aşağı doğru sürüklemek..Muhtemelen "ActiveCell.Offset(0, -2).Select" burayı bceremiyorum Burada H2:j100000 kafanızı kurcalamasın. Amacım orayı da dinamik yapmak.

    ActiveCell.Offset(0, -2).Select
Selection.AutoFill Destination:=Range("H2:J100000"), Type:=xlFillDefault
    Range("H2:J100000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("H1").Select
    Application.CutCopyMode = False

 

[ÖmerBey]

Burada H2:j100000 kafanızı kurcalamasın. Amacım orayı da dinamik yapmak.

Merhaba,
Muhtemelen hata veren kısım da burası zaten.
Seçimin bir önceki sütununa göre son dolu hücreyi bulup otomatik doldurma yapan kod aşağıdadır. Dilerseniz kırmızı kısmı belirgin bir sütunla değiştirip o sütundaki son dolu hücreye göre işlem yaptırabilirsiniz.

ActiveCell.Offset(0, -2).Select
son = Cells(Rows.Count, Selection.Column - 1).End(3).Row
Selection.AutoFill Destination:=Range(Selection, Cells(son, Selection.Column))

 

[leonadies]

Malesef yapamadım. Bu kod işe yarayacak son bir hamle lazım.
ActiveCell.Offset(0, -2).Select ile h sutunu seçiyor. Burayı H:J sutunu olarak sectirmem gerek.

 

[Korhan Ayhan]

Diyelim ki K8 hücresi aktif durumda. Kodu çalıştırdığınızda olması gereken senaryo nedir?

 

[leonadies]

J8 son aktif hücre ise j8:H8 aralığını seçeçek ve buradaki formülleri autofil ile 1000 satır aşağı sürüklyecek bu kadar. Bütün olayım H ve J sutunlarda yani.

 

[Korhan Ayhan]

Makro kodlarında çok mecbur değilseniz SELECT komutunun kullanılmasını tavsiye etmiyoruz.

Option Explicit

Sub Formul_Doldur()
    Dim Satir As Long
    Satir = ActiveCell.Row
    Range("H" & Satir & ":J1000").FillDown
End Sub

 

[leonadies]

Teşekkür ederim Korhan Bey;

İnş daha da geliştirdikçe kendimi bu dediğinizi dikkate alacağım
Sizlerden çok şey öğreniyorum. Ellerinize sağlık

 

[leonadies]

Burada yapmaya çalıştığım şey;,
Veri sekmesine H:C: D :E sutunlarını
Bilgi sekmesine G:H:I:J sutunlarına veri sekmesindeki yukarıda belirttiğim sırada kopyalamak. Bunu yaparken her seferinde makro Bilgi sekmesinde G sutununda son hücreye giderek yapsın istiyorum.
Veri sekmesinde bu bilgiler dinamik olduğu için oradaki bilgileri Bilgi sekmesinde saklamaya çalışıyorum. Amacım bu

 

[Korhan Ayhan]

Mümkünse örnek dosya üzerinde tarif eder misiniz?

 

[leonadies]

Dosyam ağ bağlantılı makrolar içeriyor. Bu nedenle sorumu sadeleştirecek basit bir dosya hazırladım.

 

[bmutlu966]

Sanırım bu şekilde istiyorsunuz.