Koda ekleme yapmak

[yalovam77]

merhaba aşağıdaki kodda kırmızı ile yazılı avukat ibaresine hukuk müşaviri ibaresini eklemek mümkünmü yardımcı olabilirmisiniz. veya hukuk müşaviri içinde aynı kodu oluşturup iki makroyu tek butonamı atamak gerekir

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("veri")
Set s2 = Sheets("Avukat")
Dim satir1hucre1 As String
Dim satir1hucre2 As String
Dim satir1hucre3 As String
Dim satir1 As String
Dim veri As String
For i = 1 To 100
veri = s1.Cells(i, "D").Value
If s1.Cells(i, "D").Value = "Avukat" Then
satir1 = s1.Cells(i, "C").Value
satir1hucre1 = s1.Cells(i, "D").Value
satir1hucre2 = s1.Cells(i, "W").Value
satir1hucre3 = s1.Cells(i, "B").Value
If satir1hucre2 = "1" Then
s2.Cells(i + 2, "C").Value = satir1
s2.Cells(i + 2, "D").Value = satir1hucre1
s2.Cells(i + 2, "B").Value = satir1hucre3
s2.Cells(i + 2, "AE").Value = satir1hucre2
End If
End If
Next
For X = 5 To 100
If Cells(X, "A").MergeArea.count = 1 Then
If Cells(X, "c") <> "" And Cells(X, "A") <> "Sıra No" Then
No = No + 1
Cells(X, "A") = No

End If
End If
Next

End Sub

 

[muygun]

Merhaba;
İlgili satırı;

If s1.Cells(i, "D").Value = "Avukat" Or s1.Cells(i, "D").Value = "hukuk müşaviri" Then

Şeklinde düzenleyerek deneyin.
İyi çalışmalar.