If Then Else komutu hakkında yardım lütfen

[mkstyle]

Arkadaşlar aşağıdaki kod ile ilgili açıklama şöyledir. Formda textbox2 içinde yazan değer memba ise süzme sonucu seçilen değer 115 nolu satıra,mansab ise 117 nolu satıra kopyalayacak. Acaba if ... then komutunu yanlış yerdemi kullanıyorum.

Private Sub CommandButton1_Click()
Dim ts, kaplan As New Collection, trabzonspor As Range, bordo
Dim I As Integer
Set bordo = Sheets("Sayfa1")
If ComboBox1.ListIndex < 0 Then Exit Sub
On Error Resume Next
For ts = 2 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
Next
ts = bordo.Range("A" & Rows.Count).End(xlUp).Row
Selection.EntireRow.Select
ts = Range("A2:A63563").End(5).Row
For I = 1 To 109
Sheets("sayfa1").Cells(115, I) = Cells(ts, I) ' textbox2 'deki değer "memba" ise sayfa1de 115 nolu satıra, "mansab" ise 117 nolu satıra kopyala yapmam gerekiyor.if .. then komutunu buraya nasıl yazabilirim
End Sub

 

[ExcelF1]

Verdiğiniz kodlar ile istediğiniz şey arasında bağ kurmak biraz zor.
Sayfa1 'de hangi 115.satır ? A sütunu mu ? B sütunu mu ? gibi...

Özel bir amacı yoksa, aşağıdaki satır amaçsız bir sayma işlemini yapıyor.
For ts = 2 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
Next

SelectionEntireRow.Select komutunuzdan önce herhangi bir seçtirme işlemi yaptırmadığınızdan (Listbox nesneniz kodlarında da herhangi bir seçim işlemi yapılmıyorsa) bu imleç o an hangi hücrede ise o satırı seçecektir. Yani seçmiş olduğunuz o satır mı kopyalanacak ?

Kısacası dosyanızdan küçük bir örnek görmeden yanıt vermek zor görünüyor.

Ama yardımı olacaksa şöyle bir şey deneyebilirsiniz.
if textbox2 = "memba" then
sheets("sayfa1").range("A115").select
activesheet.paste
elseif textbox2 = "mansab" then
sheets("sayfa1").range("A117").select
activesheet.paste
end if

 

[mkstyle]

If Then Else

Öncelikle ilgilendiğiniz için çok teşekkür ederim.
VB konusunda çok acemiyim. Sorunlarımı belki doğru- belki yanlış delphi yada c++ mantığı ile çözmeye çalışıyorum. Form üzerindeki Comboboxlarda seçim yaparak textlere giriş yaptırıyorum. Aynı anda comboboxlarda seçim yapıldığında seçilen değerlere göre de sayfa1'de süzme yapılıyor. Burada yapmak istediğim şudur. Textbox2'deki değer "MEMBA" ise SUZ butonuna tıkladığımda sayfadaki son kalan satır 115 nolu satıra, Textbox2'deki değer "MANSAB" ise sayfa1'de 117 satıra kopyalasın.