veri yönetimi hakkında

[hurkanpisirici]

merhaba eklediğim dosyada userform3 ün en üstünde bankaya gönder diye bir combobox var.benim istediğim o comboboxa database adlı sayfamdan banka isimleri gelsin ve bu userform üzerinde textboxlarda yazılı olan veriler yazılı olan banka isimli sayfaya aktarılsın eski veriler silinmek şartı ile.

banka sayfalarını açabileceiğim bi userform sonradan yapacağım burda takılı kaldım.saygılar.


anlaşılabilir olsun diye kitap 1 i akeldim kitap birde bir userform combobox textbox ve commandbuton var comboboca sayfa isimleri gelecek butona basıncada textboxtaki veri seçilen sayfaya kaydedilecek.

 

[hurkanpisirici]

umarım fazla karışık sormamışımdır şimdiden teşekkürler.

 

[Zeki Gürsoy]

Selamlar..

Private Sub CommandButton4_Click()
[COLOR=DarkGreen]'// Gönder..[/COLOR]

Dim f As Range

Set f = Sheets("cek").Find(TextBox1)

If Not f Is Nothing Then
[COLOR=DarkGreen]'// combodaki banka isimli sayfanın son satırı..[/COLOR]
    s& = Sheets("" & ComboBox3).[a65000].End(3).Row + 1
    
    [COLOR=DarkGreen]'// Buraya textboxlardaki verilerin _
        yazımı.. Ör:[/COLOR]
    With Sheets("" & ComboBox3)
        .Cells(s, 1) = TextBox1
        .Cells(s, 2) = TextBox2
       [COLOR=DarkGreen] '.[/COLOR]
    End With
    
   [COLOR=DarkGreen] '// çek sayfasından aktarılan satırı sil..[/COLOR]
    
    Sheets("cek").Rows(f.Row).Delete
End If

End Sub

 

[hurkanpisirici]

hocam çok teşekkür ederim çok sağolun ama kodlarda bu kadar iyi değilim uatrlayamadım kendime

 

[Zeki Gürsoy]

Tekrar merhaba,

Tek yapmanız gereken With-End With bloğu arasını benzer şekilde doldurmak.

Dikkat etmeniz gerken önemli bir konu da, banka isimleriyle adlandırılmış sayfa isimleri
combodakilerle eşit olmasıdır. Yani "YAPI KREDİ" ile "YKB" eşit değildir.
Sayfa ismi bulunamayacağı için hata dönecektir. Buna dikkat edin.

 

[hurkanpisirici]

Private Sub CommandButton4_Click()

'// Gönder..

Dim f As Range

Set f = Sheets("cek").Find(TextBox1)

If Not f Is Nothing Then
'// combodaki banka isimli sayfanın son satırı..
s& = Sheets("" & ComboBox3).[a65000].End(3).Row + 1

'// Buraya textboxlardaki verilerin _
yazımı.. Ör:
With Sheets("" & ComboBox3)
.Cells(s, 1) = TextBox1
.Cells(s, 2) = TextBox2
.Cells(s, 3) = TextBox16
.Cells(s, 4) = TextBox15
.Cells(s, 5) = ComboBox2
.Cells(s, 6) = ComboBox1
.Cells(s, 7) = TextBox5
.Cells(s, 8) = TextBox6
.Cells(s, 9) = TextBox7
.Cells(s, 10) = TextBox8
.Cells(s, 11) = TextBox9
.Cells(s, 12) = TextBox10
.Cells(s, 1) = TextBox11
.Cells(s, 2) = TextBox12
.Cells(s, 1) = TextBox13
.Cells(s, 2) = TextBox14




'.
End With

'// çek sayfasından aktarılan satırı sil..

Sheets("cek").Rows(f.Row).Delete
End If

End Sub



bu şekilde yaptım ama


Set f = Sheets("cek").Find(TextBox1)


bu satırda hata verdi hocam

 

[Zeki Gürsoy]

Özür dilerim, "range" aralığını yazmayı unuttum. Küçük bir ilaveyle..

Set f = Sheets("cek").[B][a2:a65000][/B].Find(TextBox1, [B]lookat:=xlwhole[/B])

 

[hurkanpisirici]

hocam elleriniz dert görmesin harikasınız ne diyebilirimki çok sağolun

 

[Zeki Gürsoy]

Siz de sağolun, kolay gelsin.