دوستان من این کد رو نوشتنم
یه بار که انجام میدم جواب میده
بار دوم یا سوم که میخوام انجام بدم دیگه کار نمی کنه
مشکل از چیه ؟
Private Sub CommandButton1_Click()
Dim CustomerName As String, CustomerProblem As Integer
Worksheets("sheet1").Select
CustomerName = Range("C4")
CustomerProblem = Range("C5")
Worksheets("sheet2").Select
Worksheets("sheet2").Range("b4").Select
If Worksheets("sheet2").Range("b4").Offset(1, 0) <> "" Then
Worksheets("sheet2").Range("b4").End(x1down).Selec t
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = CustomerName
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = CustomerProblem
Worksheet("sheet1").Select
Worksheets("sheet1").Range("c4").Select
End Sub