makro birleştirme

[yalovam77]

Merhaba üsdatlarım aşağıya kopyaladığım iki adet butona bağlı makro var bunları tek butondan yapmak istiyorum. bu iki makroyu tek butonda birleştirebilirmiyiz. yardımlarınız için teşekkür ederim.


Private Sub CommandButton7_Click()

For s = 3 To [m100].End(3).Row
Baş = Format([e1], "00000")
Bit = Format([f1], "00000")
Hucre = Format(Range("H" & s), "00000")
If Baş <= Hucre And Hucre <= Bit Then
If Rows(s).Hidden = False Then
If Range("m" & s) < 481 Then
Range("t" & s) = Range("m" & s) + 20
Else
Range("t" & s) = 500
End If
End If
Else
If Range("m" & s) < 501 Then
Range("t" & s) = Range("m" & s)
Else
Range("t" & s) = 500
End If
End If

End Sub
-------------------------------------------------------------------------------------
Private Sub CommandButton8_Click()

For i = 3 To [c250].End(3).Row
For j = 5 To [İDEK!A70].End(3).Row
If Rows(j).Hidden = False Then
If Range("c" & i) = Sheets("İDEK").Range("A" & j) Then

derece = Left(Range("q" & i), InStr(Range("q" & i), "/") - 1)
Range("w" & i) = Sheets("İDEK").Cells(j, 2 + derece)
End If
End If
Next
Next

End Sub

 

[numan şamil]

Merhaba üsdatlarım aşağıya kopyaladığım iki adet butona bağlı makro var bunları tek butondan yapmak istiyorum. bu iki makroyu tek butonda birleştirebilirmiyiz. yardımlarınız için teşekkür ederim.


Private Sub CommandButton7_Click()

For s = 3 To [m100].End(3).Row
Baş = Format([e1], "00000")
Bit = Format([f1], "00000")
Hucre = Format(Range("H" & s), "00000")
If Baş <= Hucre And Hucre <= Bit Then
If Rows(s).Hidden = False Then
If Range("m" & s) < 481 Then
Range("t" & s) = Range("m" & s) + 20
Else
Range("t" & s) = 500
End If
End If
Else
If Range("m" & s) < 501 Then
Range("t" & s) = Range("m" & s)
Else
Range("t" & s) = 500
End If
End If

End Sub
-------------------------------------------------------------------------------------
Private Sub CommandButton8_Click()

For i = 3 To [c250].End(3).Row
For j = 5 To [İDEK!A70].End(3).Row
If Rows(j).Hidden = False Then
If Range("c" & i) = Sheets("İDEK").Range("A" & j) Then

derece = Left(Range("q" & i), InStr(Range("q" & i), "/") - 1)
Range("w" & i) = Sheets("İDEK").Cells(j, 2 + derece)
End If
End If
Next
Next

End Sub

Merhaba

Private Sub CommandButton7_Click()
For s = 3 To [m100].End(3).Row
Baş = Format([e1], "00000")
Bit = Format([f1], "00000")
Hucre = Format(Range("H" & s), "00000")
If Baş <= Hucre And Hucre <= Bit Then
If Rows(s).Hidden = False Then
If Range("m" & s) < 481 Then
Range("t" & s) = Range("m" & s) + 20
Else
Range("t" & s) = 500
End If
End If
Else
If Range("m" & s) < 501 Then
Range("t" & s) = Range("m" & s)
Else
Range("t" & s) = 500
End If
End If
Call işlemyap1
End Sub

Sub işlemyap1()
For i = 3 To [c250].End(3).Row
For j = 5 To [İDEK!A70].End(3).Row
If Rows(j).Hidden = False Then
If Range("c" & i) = Sheets("İDEK").Range("A" & j) Then

derece = Left(Range("q" & i), InStr(Range("q" & i), "/") - 1)
Range("w" & i) = Sheets("İDEK").Cells(j, 2 + derece)
End If
End If
Next
Next
End Sub
--------------------
Not:Örn: Private Sub CommandButton8_Click()
Başlığını Sub işlemyap1()
şeklinde değiştirip
Private Sub CommandButton7_Click()
ait koda ilgili yere
yukarıdaki gibi
Call işlemyap1
ekleyip denermisiniz

 

[yalovam77]

Makro Birleştirme

Merhaba aşağıda yazdığım hatayı veriyor

Compile Error:
For Forwithout Next

 

[numan şamil]

Merhaba aşağıda yazdığım hatayı veriyor

Compile Error:
For Forwithout Next

Merhaba
Sub işlemyap1()
For i = 3 To [c250].End(3).Row
For j = 5 To [İDEK!A70].End(3).Row
If Rows(j).Hidden = False Then
If Range("c" & i) = Sheets("İDEK").Range("A" & j) Then

derece = Left(Range("q" & i), InStr(Range("q" & i), "/") - 1)
Range("w" & i) = Sheets("İDEK").Cells(j, 2 + derece)
End If
End If
Next j
Next i
End Sub
kodda kırmızı ile yazılanları ekleyip denermisiniz
Bunlar kodlarınızda olalıydı
Dahada olmazsa örnek dosya ekleyebilirmisiniz

 

[yalovam77]

merhabalar dediğinizi yaptım ama olmadı ekte bir belge gönderiyorum yardımcı olursanız sevinirim.

 

[numan şamil]

merhabalar dediğinizi yaptım ama olmadı ekte bir belge gönderiyorum yardımcı olursanız sevinirim.

Merhaba
Ekli dosyayı incelermisiniz
Olmuşmu?

 

[yalovam77]

Makro birleştirme

Merhabalar çok teşekkür ederim üsdat olmuş ama bir soru sorabilirmiyim. işlem yap1 gibi işlem yap2 işlemyap3 gibi bir kaç makro daha eklersem çalışırmı

 

[numan şamil]

Merhabalar çok teşekkür ederim üsdat olmuş ama bir soru sorabilirmiyim. işlem yap1 gibi işlem yap2 işlemyap3 gibi bir kaç makro daha eklersem çalışırmı

Merhaba
İşlem sırasına göre eklersen çalışır

 

[yalovam77]

çok teşekkür ederim üsdadım.

 

[numan şamil]

çok teşekkür ederim üsdadım.

Rica ederim
kolay gelsin