- Katılım
- 12 Şubat 2015
- Mesajlar
- 520
- Excel Vers. ve Dili
- Office 2016 TR 64 Bit Windows
- Altın Üyelik Bitiş Tarihi
- 01-02-2027
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.
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.
Kod:
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