Aktif sayfaya kaydet vba

[mami68]

Merhaba
Sayın üstadlarım,Formda Kaydet butonuna tıkladığım zaman verileri aktif olan sayfaya kaydetmesini istiyorum bunu nasıl uygularım.Ve bilginiz olsun diye sayfa isimleri kişi isimleriyle kayıtlıdır.İlgi ve Yardımınıza teşekkürler.

 

[Fuat Şirin]

alttaki kodları kendinize uyarlayınız

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 32000
    If (ActiveSheet.Cells(i, 1) = "") Then
        ActiveSheet.Cells(i, 1) = TextBox1.Text ' bu kısıma istediğiniz kadar textbox eklersiniz
        MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
        Exit Sub
    End If
Next i
End Sub

iyi çalışmalar

 

[mami68]

Merhaba
Sayın parlemenn.Kaydet butonunda bu kodlar bulunmaktadır ve kaydı yaparken sablon denilen sayfa Fatura sayfasıdır.Bu vermiş olduğun kodları nasıl birbiriyle birleştirme yapabilirim.
Yardımlarınıza teşekkür ederim iyi çalışmalar.
Private Sub CommandButton1_Click()

Son_Dolu_Satir = Sheets("Fatura").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
If TextBox3.Text <> "" Then
If TextBox4.Text <> "" Then
If TextBox5.Text <> "" Then
If TextBox6.Text <> "" Then
If TextBox7.Text <> "" Then



Sheets("Fatura").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Fatura").Range("A:A")) + 1

Sheets("Fatura").Range("B" & Bos_Satir).Value = TextBox1.Text

Sheets("Fatura").Range("C" & Bos_Satir).Value = TextBox2.Text

Sheets("Fatura").Range("D" & Bos_Satir).Value = TextBox3.Text * 1

Sheets("Fatura").Range("E" & Bos_Satir).Value = TextBox4.Text * 1

Sheets("Fatura").Range("F" & Bos_Satir).Value = TextBox5.Text * 1

Sheets("Fatura").Range("I" & Bos_Satir).Value = TextBox6.Text * 1

Sheets("Fatura").Range("J" & Bos_Satir).Value = TextBox7.Text * 1

Sheets("Fatura").Select

Unload UserForm1


Else
MsgBox "Tarih Girmediniz"
End If

Else
MsgBox "Ad Soyad Girmediniz"
End If
End Sub

 

[Orion1]

Sheets("Fatura").

Yukarıdaki kelimeyi ve noktayı silerseniz aktif sayfaya yazarsınız.

 

[Fuat Şirin]

Sheets("Fatura").

bu kodlar&#305; silmeniz gerekir aktif sayfaya kaydeder bu &#351;ekilde

 

[Fuat Şirin]

hocam benden &#246;nce davranm&#305;&#351; g&#246;remedim kusura bakmay&#305;n hocam

 

[Orion1]

hocam benden önce davranmış göremedim kusura bakmayın hocam

Estafurullah.

 

[mami68]

Merhaba
Say&#305;n &#252;stad&#305;m Evren bey olmuyor yine fatura sayfas&#305;na kay&#305;t yap&#305;yor.

 

[mami68]

Yoksa ben mi yanl&#305;&#351; anlad&#305;m.
Sizin dedi&#287;iniz her sat&#305;rda bulunan Sheets("Fatura"). silecekmiyim? Ben sonda ve ba&#351;ta sildim.&#304;yi &#231;al&#305;&#351;malar

 

[Fuat Şirin]

karde&#351; sen dosyan&#305; ekle
ben d&#252;zeltip sana yoll&#305;y&#305;m

 

[Fuat Şirin]

hepsini sileceksin
Range("B" & Bos_Satir).Value = TextBox1.Text
bu &#351;ekilde olacak

 

[Orion1]

Yoksa ben mi yanlış anladım.
Sizin dediğiniz her satırda bulunan Sheets("Fatura"). silecekmiyim? Ben sonda ve başta sildim.İyi çalışmalar

O prosedürün içinde kaç tane varsa hepsini.

 

[mami68]

Fuat Şirin bey ve Evren Gizlen bey_

Elinize beyninize sağlık.Teşekkürler İyi çalışmalar.

 

[Orion1]

Fuat Şirin bey ve Evren Gizlen bey_

Elinize beyninize sağlık.Teşekkürler İyi çalışmalar.

Rica ederim.
Bunu saymayız gene bekleriz.
İyi çalışmalar.