ÇAlışmayan Makro Sorunu

[Orion1]

Teklifler sayfası seçildiğinde Aşağıdaki satır hata veriyor.
Sebebi Teklifler sayfasında iken sayfa2 de satır eklemek isteniliyor.
Ancak aktif sayfada satır ekleyebilirsiniz.Sayfa2'ye satır eklemek için önce Sayfa2'yi seçiniz.Sonra satırı ekleyiniz.

s1.Rows(sat2).Insert

 

[girdap]

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

 

[girdap]

TEKLİF BUTONUNA BASILARAK AŞAĞIDAKİ KODU ÇALIŞTIRIYORUZ.

Veri Teklie aktarılıyor ama malesef bu kodlamada silme işlemi gerçekleşmiyor. Yani yukarı kaydırarak ..

 

[Orion1]

Benim size söyleyeceğim araya satır eklemeniz için ilgili sayfayı seçmelisiniz.
Kodlarınızı o şekilde ayarlayınız .Veya araya satır eklemekten vazgeçmelisiniz.Tercih sizindir.
İyi geceler.

 

[girdap]

Siz Sayfa2 ye gelerek TEKLİF sayfasından veriyi seçebildiniz mi acaba?

 

[girdap]

Bu olamıyorki

 

[Orion1]

Siz Sayfa2 ye gelerek TEKLİF sayfasından veriyi seçebildiniz mi acaba?

Sayfa2'ye gelerek TEKLİF sayfasındaki veriler işlenebilir.
Tabii ki select komutu kullanılmadan.