[PHP]Dim CustomerName As String, CustomerProblem As Integerنقل قول:
Worksheets("sheet1").Select
CustomerName = Range("C4")
CustomerProblem = Range("C5")
If Worksheets("sheet2").Range("b5") = "" Then
Exit Sub
Else
Worksheets("sheet2").Select
Range("B5").Select
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = CustomerName
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = CustomerProblem
Worksheets("sheet1").Select
Range("c4").Select[/PHP]