[Yardım]  CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZMA

Açılır liste kutusu.

CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZMA

İleti#1)  uguler06 » 11 Haz 2019 20:00

Selamın Aleyküm Üstatlar;

Userform da Combobox da seçtiğim seçeneğe göre Texbox'daki veriyi farklı hücrelere kayıt yapmak istiyorum.

Yani 12 farklı ihtimali olan bir combobox ve veri girişi yaptığım bir textbox var
1 seçersem Textbox'daki veriyi A1 hücresine,
2 seçersem A2 hücresine
3 seçersem A3 hücresine... bu şekilde 12 ayrı ihtimali olan bir userform yapmaya çalışıyorum. İlk iki seçeneği IF ELSE ile hallettim ama diğer seçeneklere uygulayamadım. Kodların nasıl olacağı konusunda yardımlarınıza ihtiyacım var. Şimdiden teşekkür ederim.
Kullanıcı avatarı
uguler06
 
Kayıt: 07 Haz 2019 22:53
Meslek: Bankacı
Yaş: 34
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZ

İleti#2)  Orion1 » 11 Haz 2019 20:04

Örnek dosya eklerseniz daha hızlı cevap alabilirsiniz.:cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZ

İleti#3)  uguler06 » 11 Haz 2019 20:14

Çok teşekkür ederim. Tabiki :)

If ComboBox1.Value = Sayfa2.Cells(1, 1) Then

Worksheets("ANA SAYFA").Cells(1, 1) = TextBox_1.Value

Else: ComboBox1.Value = Sayfa2.Cells(2, 1)

Worksheets("ANA SAYFA").Cells(1, 2) = TextBox_1.Value

If ComboBox1.Value = Sayfa2.Cells(3, 1) Then

Worksheets("ANA SAYFA").Cells(1, 3) = TextBox_1.Value

Else: ComboBox1.Value = Sayfa2.Cells(4, 1)

Worksheets("ANA SAYFA").Cells(1, 4) = TextBox_1.Value

End If
End If...

Bunu aslında 12 farklı ihtimalde yapmak istiyorum ama ilk IF çalışıyor ama sonra satırlar çalışmıyor. Sanırım arada bir şeyleri atlıyorum.
Kullanıcı avatarı
uguler06
 
Kayıt: 07 Haz 2019 22:53
Meslek: Bankacı
Yaş: 34
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZ

İleti#4)  Mesut Topal » 11 Haz 2019 20:32

Böyle bir şey mi lazım?

Kod: Tümünü seç
for i = 1 to 12

If ComboBox1.Value = Sayfa2.Cells(i, 1) Then

Worksheets("ANA SAYFA").Cells(1, i) = TextBox_1.Value

exit for
end if

next i
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 32
İleti: 318
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZ

İleti#5)  uguler06 » 11 Haz 2019 21:08

Mesut Hocam Teşekkürler.Sanırım tam olarak değil. Ben tam kod listesini ve userform ekran görüntüsünü paylaşsam bir de ona göz atabilir misiniz ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
uguler06
 
Kayıt: 07 Haz 2019 22:53
Meslek: Bankacı
Yaş: 34
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZ

İleti#6)  şahin » 11 Haz 2019 22:21

Ekte

Kitap1.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 601
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCRELERE YAZ

İleti#7)  uguler06 » 11 Haz 2019 22:52

Şahin Hocam çok teşekkür ederim. Yalnız bu kodlara başka bir şey eklemem gerekir mi ? Yazılacak hücre adresleri vs. gibi, nasıl yapmam gerek ?
Kusura bakmayın benim hiç bilgim yok üç dört günde bu forumda siz üstatlardan takip ettiğim kadarıyla bir şeyler öğrenmeye çalışıyorum. Yardımcı olan herkesten Allah razı olsun.
Kullanıcı avatarı
uguler06
 
Kayıt: 07 Haz 2019 22:53
Meslek: Bankacı
Yaş: 34
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Cevap: CBX SEÇİMİNE GÖRE TXBOX DATASINI FARKLI HÜCREL

İleti#8)  şahin » 12 Haz 2019 19:47

uguler06 yazdı:Şahin Hocam çok teşekkür ederim. Yalnız bu kodlara başka bir şey eklemem gerekir mi ? Yazılacak hücre adresleri vs. gibi, nasıl yapmam gerek ?
Kusura bakmayın benim hiç bilgim yok üç dört günde bu forumda siz üstatlardan takip ettiğim kadarıyla bir şeyler öğrenmeye çalışıyorum. Yardımcı olan herkesten Allah razı olsun.


İstediğiniz bu şekilde değil mi? Comboboxtan örnek 3 ü tıklarsanız A3 hücresine Textbox değerini yazacak...

Kod: Tümünü seç
Sayfa1.Range("A" & Me.ComboBox1.Value) = Me.TextBox1


Burda A excel sayfasındaki A sütununu Me.ComboBox1.Value ise satırı belirtecek yani hücre adresini belirtmiş oluyor, örnek Combodan 2 seçilirse A2 ye yazacak..
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 601
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa


Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe