Veri gireceğim satırın hep boş olmasını ve verilerin bir alta aktarılmasını istiyorum

[zetay]

Türkçe office 2010 kullanıyorum.
A2 den R2 ye kadar olan 18 hücreye verileri girip S2 deki butona (veya başka bir şekilde) tıklayınca o satırın bir alta kaymasını istiyorum.

Yani 2. satırın hep veri girişi için boş olmasını istiyorum.

Yardımcı olursanız sevinirim.

 

[asi_kral]

Türkçe office 2010 kullanıyorum.
A2 den R2 ye kadar olan 18 hücreye verileri girip S2 deki butona (veya başka bir şekilde) tıklayınca o satırın bir alta kaymasını istiyorum.

Yani 2. satırın hep veri girişi için boş olmasını istiyorum.

Yardımcı olursanız sevinirim.

Dosya ekleseydiniz çoktan çözülmüştü

 

[zetay]

dosyayı unuttuk tabi. neyse. umarım anlatabilmişimdir.

 

[asi_kral]

dosyayı unuttuk tabi. neyse. umarım anlatabilmişimdir.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub satır_ekle_1967()
'Konu       :   Satır Ekte
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Rows("12:12").Insert shift:=xlDown
Range("H12").FormulaR1C1 = _
"=IF(AND(RC[-5]=""Y"",RC[-2]>0),RC[-1]*2,IF(AND(RC[-5]=""Y"",RC[-2]<0),-RC[-1],IF(AND(RC[-5]=""D"",RC[-2]>0),-RC[-1],IF(AND(RC[-5]=""D"",RC[-2]<0),RC[-1]*2,""""))))"
Range("K12").FormulaR1C1 = "=VLOOKUP(RC[-9],R2C4:R12C11,2,FALSE)"
Range("M12").FormulaR1C1 = _
"=IF(AND(RC[-10]=""Y"",RC[-1]>1),RC[-6]*2,IF(AND(RC[-10]=""Y"",RC[-1]<1),-#REF!,IF(AND(RC[-10]=""D"",RC[-1]>1),-#REF!,IF(AND(RC[-10]=""D"",RC[-1]<1),#REF!*2,""""))))"
MsgBox "İşlem Tamam", vbInformation, "asi_kral_1967"
End Sub

Eki inceleyiniz.