makro ile toplam alma

[celofb]

Ek ekcel dosyam da yapmak istediğimi yazmaya çalıştım. Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[turist]

Sub Düğme2_Tıkla()
Range(“A2”).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range(“A2”).Value = “” Then
Range(“A2”).Value = 1
Range(“A2”).Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = Sheets("ADECCO").Range("D3").Value
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = “”
TextBox2.Text = “”
End Sub

ActiveCell.Offset(0, 3).Value = Sheets("ADECCO").Range("D3").Value
bu satırı ekleyin.
Dikkat: Toplam alınan sayfanın ismi belli olmadığı için "örnek" olarak "ADECCO" yazılmıştır.
Bunun yerine Sayfanın kendi gerçek ismini yazın.

 

[celofb]

çok teşekkürler

 

[turist]

Sağolun