Çözüldü Sütunda yazılı ismi bulup altına kaydetme

[sirkülasyon]

Değerli Ustalar
Ekli dosyamda kurum adları A sütununda dikey yanında ki sütunlarda da yatay olarak yazılmış hali mevcut.
Userform üzerinde textboxa yazılan veri açılan comboboxtan seçilen kurumun adının altına buton yardımı ile alt alta sırası ile kayıt edilmesinde gerekli kod için yardımcı olabilir misiniz?
affınıza sığınarak dosyayı harici paylaşmanızı ya da kodu foruma yazmanızı rica ediyorum.
Saygı ve hürmetle


DOSYA İNDİRME LİNKİ

 

[PLİNT]

Merhaba
Örnek dosyanızdaki satır ve sütundaki veri dizilişine göre aşağıdaki gibi olabilir.

Private Sub CommandButton1_Click()
a = ComboBox1.ListIndex
If a < 0 Then Exit Sub
Set s1 = Sheets("VERİ")
a = a + 4
If ComboBox1.Text <> s1.Cells(2, a).Text Then MsgBox "Seçilen ile satırdaki kurum adı sıralaması uyuşmuyor": Exit Sub
s1.Cells(s1.Cells(Rows.Count, a).End(3).Row + 1, a) = TextBox1
End Sub

 

[sirkülasyon]

Teşekkür eder saygılarımı sunarım.
Sağ ol