Code Makro ©2016

Private Sub CommandButton1_Click()
Dim CustomerIsim As String, CustomerOgrencino As Integer, CustomerSinif As Integer, CustomerTel As Integer
Dim CustomerDogumyeri As String, CustomerBabaadi As String, CustomerAnneadi As String
Worksheets("Sayfa1").Select
CustomerIsim = Range("C4")
CustomerOgrencino = Range("C5")
CustomerSinif = Range("C6")
CustomerTel = Range("C7")
CustomerDogumyeri = Range("C8")
CustomerBabaadi = Range("C9")
CustomerAnneadi = Range("C10")
Worksheets("Sayfa2").Select
Worksheets("Sayfa2").Range("B4").Select
If Worksheets("Sayfa2").Range("B4").Offset(1, 0) <> "" Then
Worksheets("Sayfa2").Range("B4").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = CostumerIsim
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CostumerOgrencino
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CostumerSinif
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CostumerTel
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CostumerDogumyeri
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CostumerBabaadi
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CostumerAnneadi
Worksheets("Sayfa1").Select
Worksheets("Sayfa1").Range("C4").Select
End Sub

:

Tweet

✚

İlgili Gönderi