[حل شده] نوشتن فرمول در یک سلول با vba

[mahdi864]

من می خواستم توی Vbaیک سلول فرمول بنوسیم که اگر برفرض مثال در سلول c2 عدد 0 بود جنسیت مرد و در صورتی که 1 بود زن در سلول d2 ثبت بشه
ممنون

[iranweld]

با سلام

If Range("c2") = 1 Then

Range("n2") = "سرکار خانم :"
 
 ElseIf Range("c2") = 0 Then

Range("n2") = "جناب آقاي :"
 
 End If 

[mahdi864]

Sub test()
Columns("p:p").ColumnWidth = 50
z1 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To z1
Range("p" & i) = Range("g2") & " " & Chr(10) _ & Range("h1") & " : " & Range("h" & i) & Chr(10) _ & Range("i1") & " : " & Range("i" & i) & Chr(10) _ & Range("j1") & " : " & Range("j" & i) & Chr(10) _ & Range("k1") & " : " & Range("k" & i) & Chr(10) _ & Range("l1") & " : " & Range("l" & i) & Chr(10) _ & Range("m1") & " : " & Range("m" & i) & Chr(10) _ & Range("n1") & " : " & Range("n" & i) & Chr(10) _ & Range("o1")  Next
End Sub

If Range("c2") = 1 Then
Range("n2") = "سرکارخانم:"  ElseIf Range("c2") = 0 Then
Range("n2") = "جناب آقاي:"  End If 

سلام
خسته نباشید
من توی vba نوشتم اما با پیام موجه می شم