Birden Fazla Combobox İle Yapılan Seçimin Tek Hücreye Kayıt Edilmesi

[dogu34]

Merhaba
Sizlerin katkısı ile birçok işlemi yardım almadan yapabiliyorum ama burda takıldım.Yardımcı olabiliseniz çok memnun olurum.
1-Userformda bulunan stok kodunda yazan değerin B sutununa,miktar kısmında yazan değerin E sutununa kayıt edilmesi.

2-Userformumda 18 adet combobox ve onlara bağlı 18 adet textboxım bulunuyor.Comboboxlardan seçim ile textboxlara veri geliyor.Yapmak istediğim sırayla veya rastgele comboxlardan seçim yaptığımda textboxlarda bulunan değerlerin C sutununa,combobox değerlerinin D sutununa aralarında nokta olarak kayıt edilmesi.Bu şekilde 10.000 satıra yakın kayıt etmeyi düşünüyorum.

https://s2.dosya.tc/server27/3csyr6/STOK.xlsm.html

a5132314-a4e5-4453-8e7e-ddabda84fe37.jpeg dosyasını indir - download

a5132314-a4e5-4453-8e7e-ddabda84fe37.jpeg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

9a1afb8f-15ee-42f9-901a-3776f788712b.jpeg dosyasını indir - download

9a1afb8f-15ee-42f9-901a-3776f788712b.jpeg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[alicimri]

combobox ve textbox ların adlarını nasıl verdiniz. Sıralı gitmesi gerekir.
Resim yerine örnek excel dosyası eklerseniz daha çabuk sonuç alırsınız.

 

[dogu34]

Merhaba
Sizlerin katkısı ile birçok işlemi yardım almadan yapabiliyorum ama burda takıldım.Yardımcı olabiliseniz çok memnun olurum.
1-Userformda bulunan stok kodunda yazan değerin B sutununa,miktar kısmında yazan değerin E sutununa kayıt edilmesi.

2-Userformumda 18 adet combobox ve onlara bağlı 18 adet textboxım bulunuyor.Comboboxlardan seçim ile textboxlara veri geliyor.Yapmak istediğim sırayla veya rastgele comboxlardan seçim yaptığımda textboxlarda bulunan değerlerin C sutununa,combobox değerlerinin D sutununa aralarında nokta olarak kayıt edilmesi.Bu şekilde 10.000 satıra yakın kayıt etmeyi düşünüyorum.

https://s2.dosya.tc/server27/3csyr6/STOK.xlsm.html

a5132314-a4e5-4453-8e7e-ddabda84fe37.jpeg dosyasını indir - download

a5132314-a4e5-4453-8e7e-ddabda84fe37.jpeg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

combobox ve textbox ların adlarını nasıl verdiniz. Sıralı gitmesi gerekir.
Resim yerine örnek excel dosyası eklerseniz daha çabuk sonuç alırsınız.

STOK.xlsm dosyasını indir - download

STOK.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[dogu34]

STOK.xlsm dosyasını indir - download

STOK.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Yükledim hocam

 

[alicimri]

Deneyin

Private Sub CommandButton4_Click()
Set s1 = Sheets("MUSTERI")
For i = 1 To 18
If Controls("ComboBox" & i).Value <> "" Then
vack = vack & "." & Controls("ComboBox" & i)
vkod = vkod & "." & Controls("TextBox" & i + 1)
End If
Next
son = s1.Cells(Rows.Count, 2).End(3).Row + 1
s1.Range("A" & son).Value = son - 1
s1.Range("B" & son).Value = TextBox1.Value
s1.Range("C" & son).Value = vkod
s1.Range("D" & son).Value = vack
s1.Range("E" & son).Value = TextBox20.Value
End Sub

 

[alicimri]

Yukarıdaki koda bir düzeltme yaptım.

 

[dogu34]

Yukarıdaki koda bir düzeltme yaptım.

Hocam merhaba elinize sağlık istediğimiz gibi olmuş fakat başlarada nokta koyuyor.Düzeltme şansımız varmı?

.İK1.İK4

.İ.ASKI ALTIN.İ.ASKI YEŞİL ALTIN

olması gereken

İK1.İK4

İ.ASKI ALTIN.İ.ASKI YEŞİL ALTIN

Teşekkürler

 

[alicimri]

Kodun ilgili satırlarını aşağıdaki gi değiştirin.

s1.Range("C" & son).Value = Mid(vkod, 2)
s1.Range("D" & son).Value = Mid(vack, 2)

UserForm_Initialize olayı da aşağıdaki gibi olabilir.

Private Sub UserForm_Initialize()
a = 1
For i = 2 To Sheets("MONTAJ").Cells(1, Columns.Count).End(1).Column Step 2
Controls("ComboBox" & a).RowSource = "MONTAJ!" & Range(Cells(2, i), Cells(20, i)).Address
a = a + 1
Next

 

[dogu34]

Kodun ilgili satırlarını aşağıdaki gi değiştirin.

s1.Range("C" & son).Value = Mid(vkod, 2)
s1.Range("D" & son).Value = Mid(vack, 2)

UserForm_Initialize olayı da aşağıdaki gibi olabilir.

Private Sub UserForm_Initialize()
a = 1
For i = 2 To Sheets("MONTAJ").Cells(1, Columns.Count).End(1).Column Step 2
Controls("ComboBox" & a).RowSource = "MONTAJ!" & Range(Cells(2, i), Cells(20, i)).Address
a = a + 1
Next

Hocam teşekkürler elinize emeğinize sağlık

 

[dogu34]

Merhaba
Ali beyin yardımları ile sorunumu çözdüm.Kendisine çok teşekkür ediyorum.Daha sonradan bazı şeyler eklemem gerekti ve yeni bir koda ve yardımlarınıza ihtiyacım var.

Userformumda 18 adet comboboxım var bunlarla birden fazla textboxa veri alıyorum.Yapmak istediğim tek veya birden fazla comboboxtan sırayla veya karışık olarak seçim yaptığımda V.kod yazan kısımları aralarında nokta olacak şekilde c sutununa,V açıklama yazan kısımları aralarında nokta olacak şekilde D sutununa özellik kod yazan kısmı E sutunundan başlayarak kayıt etmek(E sutununa yazılanın aynısı yanındaki sutunada yazılacak)
Stok Kodunu B sutununa,Miktar kısmını O sutununa kayıt edilmesi gerekiyor.Bu şekilde 10.000 e yakın veri kaydı girmem gerekiyor
Umarım yeterince açıklama yapabilmişimdir.Şimdiden teşekkürler.

https://s2.dosya.tc/server27/06m0ut/STOK2.xlsm.html

1.png dosyasını indir - download

1.png dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

2.png dosyasını indir - download

2.png dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

3.png dosyasını indir - download

3.png dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[dogu34]

Benim için çok önemli yardımlarınızı bekiyorum

 

[alicimri]

STOK2.xlsm dosyasını indir - download

STOK2.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

ComboBox ve TextBox isimlerini değiştirdim. Deneyin

 

[dogu34]

STOK2.xlsm dosyasını indir - download

STOK2.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

ComboBox ve TextBox isimlerini değiştirdim. Deneyin

Hocam elinize emeğinize sağlık.Çok ama çok teşekkür ediyorum.Hayırlı akşamlar.