Userformun Kodunu Uygulabilirmisiniz?

[Leske]

Merhaba Forum,

Bu Userformu kullanmak istiyorum ama vba bilgisizliğimden malesef kendime uygulayamıyorum.
Kodlar ve Excel birbirine denk tutmuyor ve Userform olmuyor.

Bunu benim için uygulayabilirmisiniz?
Download:Ekli dosyayı görüntüle Help.xls

Saygılarımla,
Leske

 

[Leske]

Merhaba Arkadaşlar,
yardım edebilecek kimse varmı?

 

[cems]

Merhaba Forum,

Bu Userformu kullanmak istiyorum ama vba bilgisizliğimden malesef kendime uygulayamıyorum.
Kodlar ve Excel birbirine denk tutmuyor ve Userform olmuyor.

Sayın Leske,

Programda herşey Almanca ve tam ne istediğiniz anlaşılır değil. Siz bunun üzerinde doğru çalışmayan bir yerden mi söz ediyorsunuz ya da burdaki bilgi akışını kendinize ait bir başka programa mı adapte etmek istiyorsunuz?
Tam olarak elde etmeyi düşündüğünüz sonuç nedir ?

 

[Leske]

ilginiz için teşekkürler ederim

Merhaba Sayın Cems,

ilginiz için teşekkürler ederim.
Bu userformu aynı olduğu şekil kullanmak istiyorum ama hiçbir birbirine denk gelmiyor. Yani Textboxlara yazılanlar sütunlarda çıkmıyor.

Örnek verimleri excel dosyasında Almanca'da bulunuyor. Bunu Türkçe'ye çevirmemi isterseniz yapabilirim.

 

[Leske]

Sayın excel.web.tr Üyeleri,
benim sorunuma gözünüzü iletebilirmiyim?
Bana yardımcı olabilirmisiniz?

 

[Leske]

Merhabalar,

galiba Forum'dan bana yardım olabilecek kimse yok gibi. Yinede bir son defa deniyorum.

Bu Userform'a

bu aramayı ekleyebilecek kimse varmı?


Userform'da aramak istediklerim: "Vorname" (Sütun E), "Nachname" (Sütun F) veya "Behörde/Firma" (Sütun G).

Bir Comboboxla beraber aramak istediğim 3 sütunden birini seçmek istiyorum ve aranacak şeyi textboxa yazmak istiyorum (Yukardaki örnek gibi)..

 

[NBATMAN]

Merhaba,

Command1 Butonu için aşağıdaki kodları kullanıp dener misiniz?

On Error Resume Next
Tabelle1("Telefon").Select
Dim bak As Range '****
Dim say As Integer

say = WorksheetFunction.CountA(Range("B1:B50")) + 4
Range("a1").Value = say
'TextBox1.Value = say
Cells(say, 2).Value = TextBox1.Value
Cells(say, 5).Value = ComboBox1.Value
Cells(say, 6).Value = TextBox17.Value
Cells(say, 7).Value = TextBox2.Value
Cells(say, 8).Value = ComboBox3.Value
Cells(say, 9).Value = ComboBox4.Value
Cells(say, 10).Value = TextBox3.Value
Cells(say, 11).Value = TextBox4.Value
Cells(say, 12).Value = TextBox7.Value
Cells(say, 13).Value = TextBox10.Value
Cells(say, 14).Value = TextBox5.Value
Cells(say, 15).Value = TextBox6.Value
Cells(say, 16).Value = TextBox8.Value
Cells(say, 17).Value = TextBox9.Value
Cells(say, 18).Value = TextBox11.Value
Cells(say, 19).Value = TextBox12.Value
Cells(say, 20).Value = TextBox13.Value
Cells(say, 21).Value = TextBox14.Value
Cells(say, 22).Value = TextBox15.Value
Cells(say, 23).Value = TextBox16.Value
MsgBox "Neuer Eintrag war erfolgreich", vbInformation, "Von " & Application.UserName
'Unload UserForm3
'UserForm3.Show

 

[Leske]

Arama sorunu çözüldü

Teşekkür ederim NBatman,

sorunum çözülmüstür. Ilginiz için teşekkürler ederim.