Sayın Orion hepimiz sanırım yorulduk. Kusura bakmayın. Ancak söylemeliyimki siz Sayfa2 de bu işe yaparsanız, sadece sayfa2den seçim yapabilirsiniz bu yönteme göre. Halbuki biz TEKLİF sayfasından Sayfa2 ye ya da SATIŞ dosyasına veri aktarmak istiyoruz. Aslında hazır formumuz üzerinde (UserForm5) Bul ile tüm veriler form üzerine çağırılıyor ve aktarma işlemi de yapılabiliyor. ancak eksik olan aktarılanın silinmesi. Bunu buradan halletmek mümkün olur mu?
Private Sub CommandButton83_Click()
Columns("B:B").Select
If ComboBox21.Value = "" Then
MsgBox "Önce Combobox'tan seçim yapınız"
Exit Sub
End If
For a = 2500 To 1 Step -1
If Cells(a, 3).Value = ComboBox21.Value Then
Cells(a, 3).Select
GoTo dur
End If
Next a
dur:
TextBox25.Value = Cells(ActiveCell.Row, 1).Value 'inşaat şirketi f
TextBox9.Value = Cells(ActiveCell.Row, 4).Value 'İNŞAAT ŞİRKETİ F
ComboBox18.Value = Cells(ActiveCell.Row, 2).Value 'KAYNAK B
ComboBox12.Value = Cells(ActiveCell.Row, 3).Value 'mimari ofis C
TextBox4.Value = Cells(ActiveCell.Row, 5).Value 'görüşülen proje d
TextBox5.Value = Cells(ActiveCell.Row, 6).Value 'İLGİLİ KİŞİ F
ComboBox3.Value = Cells(ActiveCell.Row, 7).Value 'ŞEHİR G
TextBox26.Value = Cells(ActiveCell.Row, 8).Value 'AÇIK ADRES H
TextBox8.Value = Cells(ActiveCell.Row, 9).Value 'tel no I
TextBox24.Value = Cells(ActiveCell.Row, 10).Value 'E-MAIL J
ComboBox9.Value = Cells(ActiveCell.Row, 11).Value 'GÖRÜŞME ŞEKLİ K
ComboBox11.Value = Cells(ActiveCell.Row, 12).Value 'görüşen kişi L
ComboBox15.Value = Cells(ActiveCell.Row, 13).Value 'İLK GÖRÜŞME TARİHİ M
ComboBox19.Value = Cells(ActiveCell.Row, 14).Value 'SON görüşme TARİHİ N
ComboBox4.Value = Cells(ActiveCell.Row, 15).Value 'PROJE bitiş tarihi O
ComboBox14.Value = Cells(ActiveCell.Row, 16).Value 'bitiş tarihi P
ComboBox6.Value = Cells(ActiveCell.Row, 17).Value 'GÖRÜŞME aşaması Q
TextBox12.Value = Cells(ActiveCell.Row, 18).Value 'GÖRÜŞME AÇIKLAMALARI R
ComboBox10.Value = Cells(ActiveCell.Row, 19).Value 'SON DURUM S
TextBox20.Value = Cells(ActiveCell.Row, 20).Value 'Notlar T
TextBox18.Value = Cells(ActiveCell.Row, 21).Value 'TUTARLAR
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Cells(ActiveCell.Row, 1).Select
End Sub
