Yatay ve Dikey veri arayıp kesişen hücreye veri girme

[mesutaygun70]

Combobox1 de tarihler var (aşağı doğru listeleniyor)
Combobox2 de saatler var (yana doğru listeleniyor)
Ben iki comboboxa veri girdiğimde kesişen hücreye text boxla veri girmek istiyorum. Yapabilirmiyim

Örneğin 03/11/2022 saat 08:00 seçip kesişen hücreye textboxtaki veriyi aktarabilirmiyim.

 

[ÖmerFaruk]

Dosyanızı ya da Comboboxlara veri aldığınız kodları paylaşır mısınız?

 

[mesutaygun70]

Dosyanızı ya da Comboboxlara veri aldığınız kodları paylaşır mısınız?

deneme.xlsm dosyasını indir - download

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

s7.dosya.tc

 

[ÖmerFaruk]

Userforma bir buton ekledim.

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Then Exit Sub
Cells(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 2) = TextBox1
End Sub

 

[mesutaygun70]

Userforma bir buton ekledim.

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Then Exit Sub
Cells(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 2) = TextBox1
End Sub

Teşekkürler

 

[mesutaygun70]

Userforma bir buton ekledim.

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Then Exit Sub
Cells(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 2) = TextBox1
End Sub

Private Sub CommandButton1_Click()
If TextBox9.Value < 0 Or ComboBox2.ListIndex < 0 Then Exit Sub
Cells(TextBox9.TextAlign + 2, ComboBox2.ListIndex + 2) = TextBox10

Özür dileyerek soruyorum. Comboboxun birini Textbox yaptım. TextBoxu seçmiyor. "value, text" denedim ama nasıl yapacağımı bulamadırm. Kod yukarıda, birde Sayfa8 e yazmasını nasıl sağlayabilirim

 

[ÖmerFaruk]

TextBox9'un içeriğine ne yazıyorsunuz?

 

[mesutaygun70]

TextBox9'un içeriğine ne yazıyorsunuz?

değişken olarak tarih yazacak

 

[mesutaygun70]

Randevu_defteri11.xlsm dosyasını indir - download

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

s6.dosya.tc

Randevu sayfasına yazdırmam gerek. Userform 2 deki randevu bilgileri kısmındaki verilere göre .

 

[ÖmerFaruk]

CommandButton kodlarını aşağıdakiyle değiştirin

Private Sub CommandButton1_Click()
    If CDate(Me.TextBox9) <= 0 Or ComboBox2.ListIndex < 0 Then Exit Sub
    Set Sh = Worksheets("Randevu")
    Sh.Cells(CDate(Me.TextBox9) - Sh.Range("A2") + 2, ComboBox2.ListIndex + 2) = TextBox10
End Sub