çalışma sayfasında ki verileri başka sayfadaki ilgili sütunlara aktarma

[hakan_demirkan]

çalışma sayfasında ki verileri başka sayfadaki ilgili sütunlara aktarmak istiyorum yardım ederseniz sevinirim. dosyam ektedir.

 

[Ayhan Ercan]

Merhaba,

Kaydet düğmesindeki kodları aşağıdaki gibi değiştirerek deneyiniz...

Private Sub CommandButton1_Click()
On Error Resume Next 'hata olduğunda gömezden gel
Dim i As Integer, bul As Range
Application.ScreenUpdating = False
For i = 3 To 32000 'HANGİ HÜCREDEN BAŞLANACAĞINI GÖSTERİYOR
    If (ActiveSheet.Cells(i, 1) = "") Then
        ActiveSheet.Cells(i, 1) = TextBox1.Text
        ActiveSheet.Cells(i, 2) = TextBox2.Text
        ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
          ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
         
        Sayfa1.Select
        Set bul = Sayfa1.Range("a2:iv2").Find(ComboBox1, lookat:=xlWhole)
If Not bul Is Nothing Then
bul.Activate
s = 1
10 If ActiveCell.Offset(s, 0) <> "" Then s = s + 1: GoTo 10
ActiveCell.Offset(s, 0) = TextBox4
End If
      For s = 1 To 4
      Controls("TextBox" & s) = ""
    Next
Sayfa2.Select
Set bul = Nothing
Application.ScreenUpdating = True
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
MsgBox "YEN&#304; KAYIT &#304;&#199;&#304;N VER&#304;LER S&#304;L&#304;NM&#304;&#350;T&#304;R.", vbInformation
Exit Sub
End If
Next i
End Sub

 

[hakan_demirkan]

hocam tşk. yalnız bir sorun daha var KASA sayfasından verileri sildiğimde GİDERLER sayfasında ki veriler silinmiyor bunada bir çare bulabilirseniz memnun olurum saygılarımla

 

[hakan_demirkan]

AYHAN Hocam iletim gelmedi galiba yardım ederseniz sevinirim

 

[ersoyalan]

Merhaba,

Sayfanızda bir buton oluşturun ve kodu ekleyin.


Sub sil()
Sheets(Array("KASA", "GİDERLER")).Select
Sheets("KASA").Activate
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("KASA").Select
Range("A1").Select
End Sub


E.ALAN

 

[mpinal]

bu sorunuza yakın fakat daha basit bir sorunum var

arkadaşlar ben bir öğretmenim ve okulumuz için bir kurs kayıt programı yapmaya çalışıyorum zaman ayırabilirseniz sevinirim.Makroları kullanabilcek kadar bilgi sahibiyim sorunumu bu seviyede çözerseniz mantığını anlamaya çalışırım ve birdaha sizleri rahatsız etmem şimdiden teşekkür ederim.

 

[hakan_demirkan]

ersoyalan kardeşim teşekkür ederim ama benim demek istediğim bu değildi, ben form aracılığı ile girdiğim verileri kasadata sayfasından sildiğimde giderler sayfasından da silinmesini istiyorum, yukarıdaki yazılımda verileri giriyorum ama geri sildiğimde giderler sayfasından silinmiyor aynen kalıyor orada, üstadlar için kolay bir çözüm aslında.

 

[hakan_demirkan]

üstadlar yardım istiyorum, ilgili sayfaaya veri girdiğimde tamam ilgili sayfaya veriyi atıyor, ama ; geri sildiğimde ise silmiyor yardımcı olursanız minnettar kalırım.