makroya ilave

[igultekin2000]

iyi günler; banka ekstre hazırlamada kullandığım makro var. mümkünse bir ilavenin olması işlemleri çabuklaştıracak. hesap kodu ve ismi ilgili satıra aktarınca kursörün otomatik bir alt satıra geçmesi. alt satıra seçim işlem yapmak biraz yavaşlatıyor. teşekkürler.
http://s9.dosya.tc/server2/6c2s25/ornek.xls.html

[/url][/IMG]

 

[yanginci34]

Denermisiniz
http://dosya.co/irfe0flwqnh1/boş_satır.xls.html

 

[igultekin2000]

alt satıra geçmiyor

Denermisiniz
http://dosya.co/irfe0flwqnh1/boş_satır.xls.html

denedim ama eskisi gibi alt satıra geçmiyor

 

[yanginci34]

sayfanın makrosunu kaldırmak zorunda kaldım benim elimden bukadar geliyor
http://dosya.co/1bxomu0luodv/boş_satır_(1).xls.html

 

[askm]

Örnek dosyanızı buradan paylaşırsanız yardımcı olmaya çalışalım. Dosya yükleme sitelerinden dosya indiremiyorum.

 

[yanginci34]

istediği
Ekli dosyayı görüntüle istenilen.xls
benim gönderdiğim
Ekli dosyayı görüntüle boş satır (1).xls

 

[igultekin2000]

örnek dosya

form kısmı

Private Sub ComboBox1_Change()
End Sub


Private Sub ComboBox2_Change()

Set s = Sheets("HESAP PLANI")
    ADI = Trim(ComboBox2.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    satir = s.Range("A:B").Find(ADI).Row
    If satir = 0 Then
    Exit Sub
    End If
    ComboBox1 = s.Cells(satir, "A")
    TextBox2 = s.Cells(satir, "B")
          

End Sub

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set sh = Sheets("AKTARMA")
sh.Range("E" & ActiveCell.Row).Value = ComboBox1.Column(0)
End Sub

Private Sub Label3_Click()

End Sub

Private Sub ListBox1_Click()
If ListBox1.ListIndex < 0 Then Exit Sub
ComboBox1.Value = ListBox1.Column(0)
TextBox2.Value = ListBox1.Column(1)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "'HESAP PLANI'!A2:B" & Sheets("HESAP PLANI").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.RowSource = "'HESAP PLANI'!A2:A" & Sheets("HESAP PLANI").Cells(Rows.Count, "A").End(xlUp).Row
End Sub

Örnek dosyanızı buradan paylaşırsanız yardımcı olmaya çalışalım. Dosya yükleme sitelerinden dosya indiremiyorum.

akrtarma (çalışma sayfasındaki makro)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:E]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
Range("A" & Target.Row & ":E" & Target.Row).Select
End Sub

 

[askm]

Aktar butonunun kodunu aşağıdaki şekilde değiştirip deneyin.

Private Sub CommandButton1_Click()
Dim SonSat As Long
SonSat = Range("E" & Rows.Count).End(xlUp).Row + 1

Dim sh As Worksheet
Set sh = Sheets("AKTARMA")
sh.Range("E" & SonSat).Value = ComboBox1.Column(0)
sh.Range("F" & SonSat).Value = TextBox2.Text
sh.Range("E" & SonSat + 1).Select
End Sub

 

[igultekin2000]

teşekkürler, sorunsuz çalışıyor