farklı sayfalara kayıt

[damra2005]

Private Sub CommandButton1_Click()
Dim KayitSayisi As Integer
If TextBox1.Value = "" Then
MsgBox "Adı Soyadı Alanını mutlaka doldurmalısınız", , "Eksik Alan Bulundu"
Exit Sub
End If

Set Sayfa30 = Worksheets("Sayfa30")
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A1:A65536"))
Sayfa30.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
ActiveWorkbook.Save
End Sub

Yukarıdaki kod textboxta girilen veriyi sadece sayfa30 daki A sütununa kaydediyor. makroyla texboxa girilen veriyi hem Sayfa 30 hem de Sayfa31 deki A sütununa kaydetmek mümkünmü.

 

[bekir38]

merhabalar,

şöyle bir önerim olsa;
yukarıdaki kodlar sayfa 30 a kaydediyorsa ve sayfa 31 dede aynı verilerin olmasını istiyorsanız ayrı bir makro yazıp sayfa 30 daki tüm verileri sayfa 31 kopyalayıp yapıştırsın. sadece bir öneri.
ben böyle bir çözüm ürettim ama tabi dahada değişik çeşitleri vardır.

iyi çalışmalar,

 

[Levent Menteşoğlu]

Aşağıdaki ilaveyi yaparak deneyin.

[vb:1:2cc66419c0]Set Sayfa30 = Worksheets("Sayfa30")
Set Sayfa31 = Worksheets("Sayfa31")
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A1:A65536"))
Sayfa30.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
Sayfa31.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
ActiveWorkbook.Save
End Sub
[/vb:1:2cc66419c0]

 

[damra2005]

TEÞEKKÜRLER ÜSTAD