Ctrl+D tuşunun makrosu

[CILEKESH]

Private Sub CommandButton12_Click()

If ComboBox1 = "" Or ComboBox2 = "" Or TextBox4 = "" Then 'Boş alan engelle
MsgBox "Blok-Daire-İsim Boşgeçilemez!..", vbExclamation, "*© 2011*Irmak Yazılım"
Exit Sub

End If
If Range("A3").Value = "" Then
Range("A3").Select
ActiveCell.Value = ComboBox1
ActiveCell.Offset(0, 2) = TextBox4
ActiveCell.Offset(0, 5) = ComboBox1 & ComboBox2 & " " & TextBox4
ActiveCell.Offset(0, 6) = TextBox5
ActiveCell.Offset(0, 7) = ComboBox3
ActiveCell.Offset(0, 1) = ComboBox1 & ComboBox2
ActiveCell.Offset(0, 19) = ComboBox2
Else
[A65536].End(xlUp).Offset(1, 0).Select  ' Boşlukları görür sıradaki satıra yazması için

ActiveCell.Value = ComboBox1
ActiveCell.Offset(0, 2) = TextBox4
ActiveCell.Offset(0, 5) = ComboBox1 & ComboBox2 & " " & TextBox4
ActiveCell.Offset(0, 6) = TextBox5
ActiveCell.Offset(0, 7) = ComboBox3
ActiveCell.Offset(0, 1) = ComboBox1 & ComboBox2
ActiveCell.Offset(0, 19) = ComboBox2
End If
Unload Me ' Formu yenile
    UserForm23.Show
End Sub

Bu kodun Hem EndIf'e hemde Else kısmına aşağıdaki gibi bir şey eklemek istiyorum. Hücre üstteki hücreyi kopyalayacak. Excelde Ctrl+C Ctrl+V yapar gibi.

İlgili hücreler aşağıdaki gibidir.
ActiveCell.Offset(0, 3) = Ctrl+D
ActiveCell.Offset(0, 4) = Ctrl+D

 

[Skorpiyon]

Sayın CILEKESH,

Activecell.offset(0,3) = Activecell.offset(-1,3) işinizi görür sanırım.

 

[CILEKESH]

Sayın CILEKESH,

Activecell.offset(0,3) = Activecell.offset(-1,3) işinizi görür sanırım.

Yalnız kopyalanacak olan "DEĞER" değil. Bir "FORMUL" dolayısıyla başvuru hücreleri de değişecek sizin verdiğiniz kod üsteki hücrenin değerini kopyalıyor. Ben Formulun CTRL+D yapar gibi kopyalanmasını istiyorum.

 

[Korhan Ayhan]

Merhaba,

Makro kaydet yöntemiyle bu kodu rahatlıkla elde edebilirdiniz. Aşağıdaki şekilde denermisiniz.

ActiveCell.Offset(0, 3).FillDown

 

[CILEKESH]

Merhaba,

Makro kaydet yöntemiyle bu kodu rahatlıkla elde edebilirdiniz. Aşağıdaki şekilde denermisiniz.

ActiveCell.Offset(0, 3).FillDown

Aslında denemiştim

Selection.FillDown
    ActiveCell.FormulaR1C1 = _
        "=TAHAKKUKLAR!R[-1]C[11]-SUMIF(AD,RC[-2],AÇILIŞ_YOK_GELİRLER)"
    Range("D97").Select

böyle bir kod çıktı ama .FillDown olayını çözümleyememiştim.


Çok Teşekkür ederim.

 

[baydeniro]

Sayın Korhan Ayhan paylaşım için çok teşekkürler. Bunu tersi de mümkün mü acaba ? CTRL D işleminin yapılmaması gibi ! Aşağıdaki kod işlev görmüyor :

Application.OnKey "^d", ""