Aşağıdaki makro A14 hücresi yerine Değişken Seçtiğim hücreden çalışsın

[k.altiok]

Sub Makro10()
'
' Makro10 Makro
'
' Klavye Kısayolu: Ctrl+u
'
Rows("14:14").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A13").Select
Selection.Copy
Range("A14").Select
ActiveSheet.Paste
Range("B14").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "'aaaa"
Range("K14").Select
Selection.AutoFill Destination:=Range("F14:K14"), Type:=xlFillDefault
Range("F14:K14").Select
Range("D14").Select
End Sub

 

[Korhan Ayhan]

İlgili hücre adreslerini ActiveCell ifadesi ile değiştirip deneyebilirsiniz.

 

[k.altiok]

Rows("14:14").Select
Range("A13").Select
Range("A14").Select
Range("B14").Select
Range("K14").Select
Selection.AutoFill Destination:=Range("F14:K14"), Type:=xlFillDefault
Range("F14:K14").Select
Range("D14").Select
Nasıl Değişecek?

 

[Korhan Ayhan]

Öncelikle VBA tarafında işlem yaparken hücre-sayfa seçimi (Select) yapmanıza gerek yok.

Bunun için örnek dosya üzerinde yapmak istediğiniz işlemi açıklarsanız daha kısa kod önerilebilir.

 

[k.altiok]

A kolonda rasgele bir satır seçip satır aç üsteki hücreyi yeni hücreye kopyala (A kolon) B hücreye "aaaa" yaz K hücresini F..K kopyala D hücresinde dur
bunu yapan makro

 

[ÖmerFaruk]

5.satırı seçtik
4 ile 5 in rasında yeni boş bir 5.satır açtık.
A4 hücresini A5 hücresine kopyala
B5 hücresine "aaaa" yaz
Buraya kadar doğru sanırım

K hücresini F-K arasına kopyala derken K4 deki değeri mi? (Zira yeni açılan satırdaki K hücresi ki adresi K5 oluyo boş olarak gelecektir.)
D hücresinde Dur ne demek?