iki farklı komutu birleştirme

[ayemenici]

merhaba,
arkadaşlar benim sıkıntım Private Sub UserForm_Initialize() başlığı altında iki farklı komut vermek istiyorum aşağıdaki komutlara nasıl bir bağlaç kullanabilirim
yardımcı olursanız çok sevinirim

Private Sub UserForm_Initialize()

Say = WorksheetFunction.CountA(Sheets("DATA").Range("I2:I30"))
SEVKŞEKLİ.RowSource = "DATA!I2:I" & Say + 1
..............
Dim sonhücre
sonhücre = WorksheetFunction.CountA(Sheets("DATA").Range("A1:A500"))
alıcı.ListRows = 10
ALICI.RowSource = "DATA!A1:A" & sonhücre

End Sub

 

[Recep İpek]

Sayın ayemenici,

Sanırım Userform'da 2 tane Combobox var.

Denemedim ama eğer bu şekilde ise yazdığınız kodlarınızın çalışması gerekiyor.

 

[ayemenici]

Merhaba ripek,
evet birden fazla aslında 5 adet combobox var ancak örnek olsun diye birini ilave ettim
aslında say:... komutu çalışıyor ancak "dim" komutunu çalıştıramadım

 

[Levent Menteşoğlu]

Ne yapmak istediğinizi tekrar açıklarmısınız. Nasıl bir bağlantı yapmak istiyorsunuz. Ayrıca dim komutunu kullanmanıza gerek yok. Prosedür içinde Dim sonhücre şeklinde yazılmasının bir anlamıda yoktur. Örneğin, dim sonhücre as integer yazsaydınız değişkeni integer olarak tanımlamış olurdunuz ve bununda bir manası olurdu. Bence bu satırı hiç kullanmayın.

 

[ayemenici]

sayın leventm,
sitenizden aldığım bir örneği inceledim uygulamaya çalıştım ancak userformu başka sayfada açtığımda çalışmadı
daha doğrusu data sayfamdan belirlediğim combobox aralığında bir veri seçtiğimde ilgili textbox a data sayfamdan değil açılan sayfada B sutunundan veri geliyor bunu data sayfasına yönlendiremiyorum

Private Sub ALICI_Change()
Cells(ALICI.ListIndex + 2, 1).Select
ADRES = Cells(ALICI.ListIndex + 2, 2)
End Sub

Private Sub UserForm_Initialize()
Say = WorksheetFunction.CountA(Sheets("DATA").Range("I2:I30"))
SEVKŞEKLİ.RowSource = "DATA!I2:I" & Say + 1
Say = WorksheetFunction.CountA(Sheets("DATA").Range("J2:J30"))
CİNSİ.RowSource = "DATA!j2:j" & Say + 1
Say = WorksheetFunction.CountA(Sheets("DATA").Range("L2:L30"))
SERTİFİKASI.RowSource = "DATA!L2:L" & Say + 1
Say = WorksheetFunction.CountA(Sheets("DATA").Range("K2:K30"))
BİRİM.RowSource = "DATA!K2:K" & Say + 1
Say = WorksheetFunction.CountA(Sheets("DATA").Range("A2:A500"))
ALICI.RowSource = "DATA!A2:A" & [A65536].End(3).Row

End Sub

 

[Levent Menteşoğlu]

Private Sub ALICI_Change()
Cells(ALICI.ListIndex + 2, 1).Select
ADRES = Cells(ALICI.ListIndex + 2, 2)
End Sub

Yukarıdaki kodunuzu aşağıdaki gibi düzenleyin.

Private Sub ALICI_Change()
[COLOR=blue][B]sheets("data").[/B][/COLOR]Cells(ALICI.ListIndex + 2, 1).Select
ADRES = [COLOR=blue][B]sheets("data").[/B][/COLOR]Cells(ALICI.ListIndex + 2, 2)
End Sub

 

[ayemenici]

sayın leventm,
belirttiğiniz kodu girdim ancak userformu dada sayfası üzerinde açtığımda çalışıyor diğer çalıştırmak istediğim kayıt sayfası üzerinde yine aşağıdaki kısımda hata veriyor

sheets("data").Cells(ALICI.ListIndex + 2, 1).Select