Textbox,ta secilen firma

[Jezus]

Herkese merhaba
Daha once leventm isakarakus ve tevfik hocalarimin yardimiyla yaptigim bilet formununa eklemeler yaptim bu yuzden yardiminiz gerekiyor sayin hocalarim

Problem su firma ekle tusuyla yeni bir firma ekledik bu ayni zamanda girilen isimde bir sayfa yapiyor firma sec tusunu kullandigimizda,da userform1 aciliyor fakat standart sayfaya gidiyor yani murat adli sayfaya
benim yapmak istedigim textbox icine hangi firma ismi yazildi ise Userform1 yazilan firma ismi sayfasina yonlensin

Ornek sultan air,e bilet girisi yapilacak Userform1de veri tabani sultanin sayfasi olacak Onur air,e bilet icinse Userform1de onur air,in sayfasi veri tabani olacak sanirim bu aciklama hocalarim icin yeterli

Ekte ornek bir dosya yolluyorum
Sifre = 123

Simdiden tesekkurler arkadaslar

 

[Levent Menteşoğlu]

"Seçilen firmaya git" butonuna aşağıdaki kodu yazın.

[vb:1:4ecbb8d641]Private Sub CommandButton4_Click()
On Error Resume Next
Sheets(TextBox1.Value).Activate
UserForm1.Show
End Sub
[/vb:1:4ecbb8d641]

Userform1 initialize olayındaki aşağıdaki satırı değiştirin. Kırmızı yazı ilave edilen kısımdır.

ListBox1.RowSource = firmasec.TextBox1.Value & "!A1:V1000"

yani kodların içindeki hücre ve aralık tanımlamalarının başına textbox1 deki ismi tanımlamanız gereklidir.

 

[Jezus]

Leventm hocam ilgini yine esirgemedigin icin cok tesekkur ederim, verdiginiz kodlari yazdim verilen isimdeki sayfayi aciyor fakat userform1 , i acmiyor

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz...

 

[Jezus]

Sn. Cost control ilgin icin tesekkur ederim verdigin ornekte guzel fakat orneginizde acilan forumda birsey yazilamiyor sadece okuyor yani ne varsa onu gosteriyor benim yapmak istedigim yazilabilen isterseniz dosyaya yeniden bakin leventm hocamin verdigi kodlari yazdim su an tam olmasada aciliyor fakat biletno yerine birsey yazmiyor eger bu konuda yardimci olursan sevinirim bu arada excele donmek icin firmasec formunda alt kosede kucuk noktalar var bununla excele bakabilirsiniz

 

[Jezus]

Merhaba arkadaslar
secilen sayfa,ya veri yazabilmek icin su an standart sayfa olan murat yerine ne yazmam gerekiyor ki acilan sayfaya kayit yapabilmem icin

Private Sub Kayit_Click()
Dim DENEME As Integer
DENEME = Application.CountA(Sheets("murat").Columns("A")) + 1

Sheets("murat").Cells(DENEME, 1) = ComboBox1 '
Sheets("murat").Cells(DENEME, 2) = TextBox2 '

 

[Jezus]

arkadaslar son asamaya geldim murat yerine ne yazmam gerekiyor onu bir soylerseniz
problem bitiyor.

 

[Korhan Ayhan]

Bunu deneyin...

ActiveSheet.Cells(DENEME, 1) = ComboBox1

 

[Jezus]

Sn. Cost control

DENEME = Application.CountA(Sheets("murat.").Columns("A")) + 1

burada murat yerine altta gordugunuzu yazdim hata veri

DENEME = Application.CountA(Sheets("ActiveSheet.").Columns("A")) + 1

 

[Korhan Ayhan]

Bu şekilde deneyiniz...

DENEME = Application.CountA(ActiveSheet.Columns("A")) + 1

 

[Jezus]

Evet istedigim buydu harika Sn.Cost control ve leventm hocam her ikinizede cok cok tesekkurler beyler fikrinize saglik