1 sayfadan 1. sayfa

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

İletiTarih: 11 Haz 2019 20:00
uguler06
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.

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

İletiTarih: 11 Haz 2019 20:04
Orion1
Örnek dosya eklerseniz daha hızlı cevap alabilirsiniz.:cool:

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

İletiTarih: 11 Haz 2019 20:14
uguler06
Ç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.

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

İletiTarih: 11 Haz 2019 20:32
Mesut Topal
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

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

İletiTarih: 11 Haz 2019 21:08
uguler06
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 ?

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

İletiTarih: 11 Haz 2019 22:21
şahin
Ekte

Kitap1.rar

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

İletiTarih: 11 Haz 2019 22:52
uguler06
Ş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.

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

İletiTarih: 12 Haz 2019 19:47
şahin
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..