• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Command button isimlerini Comboboxta listeletme hk.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

himmgarip

Excel Dostu
Katılım
27 Mar 2021
Mesajlar
797
Çözümler
96
Aldığı beğeni
883
Excel V
Office 2016 TR
Konu Sahibi
Merhaba,

Aşağıdaki userformda anasayfada bulunan 20 adet masa adını comboboxlarda listelemek istiyorum. Bu konuda hiçbir bilgim yok. O yüzden başlamadan takıldım kaldım.

Burada masaya ait sipariş listesinin tamamını ya da kısmen bir bölümünü diğer masaya aktarmak istiyorum. Masalar sayfasının B sütunundaki Masa adı değişikliği yeterli olacaktır.
Alttaki listboxlarda ise seçilen sayfanın içeriğini göstereceğim. Desteğinizi rica ederim.

1642012597354.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
I
himmgarip' Alıntı:
Bu bilgilerden sonra bir bölümünü yaptım. Kayıtları tek tek diğer masaya aktarabiliyorum. Yapamadığım tek durum masadaki bütün ürünleri tek seferde aktarım yapamadım. Bu konuda desteğinizi rica ederim.

Ekli dosyayı görüntüle 4759
Genişletmek için tıkla...

Merhabalar
Direk olarak masa adını değistirseniz. Masa adlarını ComboBox tan seçip butona alttaki kodları eklerseniz istediğiniz olacaktır
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Aşağıdaki yöntemleri UserFormun İnitialize olayına yazabilirsiniz.

YÖNTEM_1:

ComboBox1.AddItem "Masa1"
ComboBox1.AddItem "Masa2"
...
ComboBox1.AddItem "Masa20"

YÖNTEM_2:
Eğer sayfadan veri alacaksanız. Kendi sayfanızı yazınız.

For j = 2 To Sheets("Sayfa1").Cells(Rows.Count, 3).End(3).Row
ComboBox1.AddItem Sheets("Sayfa1").Cells(j, "B")
Next

YÖNTEM_3:
Aşağıda 20 en son rakamdır. Siz ister 50 ister 10 yapın.

For j = 1 To 20
ComboBox1.AddItem "Masa" & j
Next
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
Aşağıdaki yöntemleri UserFormun İnitialize olayına yazabilirsiniz.

YÖNTEM_1:

ComboBox1.AddItem "Masa1"
ComboBox1.AddItem "Masa2"
...
ComboBox1.AddItem "Masa20"

YÖNTEM_2:
Eğer sayfadan veri alacaksanız. Kendi sayfanızı yazınız.

For j = 2 To Sheets("Sayfa1").Cells(Rows.Count, 3).End(3).Row
ComboBox1.AddItem Sheets("Sayfa1").Cells(j, "B")
Next

YÖNTEM_3:
Aşağıda 20 en son rakamdır. Siz ister 50 ister 10 yapın.

For j = 1 To 20
ComboBox1.AddItem "Masa" & j
Next
Genişletmek için tıkla...

Bu bilgilerden sonra bir bölümünü yaptım. Kayıtları tek tek diğer masaya aktarabiliyorum. Yapamadığım tek durum masadaki bütün ürünleri tek seferde aktarım yapamadım. Bu konuda desteğinizi rica ederim.

1642019557733.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
himmgarip' Alıntı:
Bu bilgilerden sonra bir bölümünü yaptım. Kayıtları tek tek diğer masaya aktarabiliyorum. Yapamadığım tek durum masadaki bütün ürünleri tek seferde aktarım yapamadım. Bu konuda desteğinizi rica ederim.

Ekli dosyayı görüntüle 4759
Genişletmek için tıkla...

Merhabalar
Direk olarak masa adını değistirseniz. Masa adlarını ComboBox tan seçip butona alttaki kodları eklerseniz istediğiniz olacaktır
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
işsiz123' Alıntı:
Merhabalar
Direk olarak masa adını değistirseniz. Masa adlarını ComboBox tan seçip butona alttaki kodları eklerseniz istediğiniz olacaktır
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...

Yapmam gereken sadece bu zaten. Ama toplu olarak nasıl yapıldığını bilmiyorum :)

Verdiğiniz kodu butona atayacağız değil mi?

Kodu ekledim ama çalışmıyor.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
himmgarip' Alıntı:
Yapmam gereken sadece bu zaten. Ama toplu olarak nasıl yapıldığını bilmiyorum :)

Verdiğiniz kodu butona atayacağız değil mi?

Kodu ekledim ama çalışmıyor.
Genişletmek için tıkla...

Özür diliyorum. Benden kaynaklanan bir hata. Kod gayet düzgün çalışıyor. Kusura bakmayın. Teşekkürler işsiz123 .
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst