- Katılım
- 12 Temmuz 2006
- Mesajlar
- 201
- Excel Vers. ve Dili
- Microsoft 365 / Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-05-2026
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
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
Son düzenleme: