Makro Birleştirme

[sirkülasyon]

Private Sub CommandButton1_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[N180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "N").Value
Worksheets(ActiveSheet.Name).Cells(i, "W").Value = Worksheets(ActiveSheet.Name).Cells(i, "W").Value + YER
Next i
MsgBox "AKTARIMI TAMAMLANDI"
End Sub
Private Sub CommandButton2_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[N180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "N").Value
Worksheets(ActiveSheet.Name).Cells(i, "W").Value = Worksheets(ActiveSheet.Name).Cells(i, "W").Value - YER
Next i
MsgBox "AKTARIM GERİ ALINDI"
End Sub

Private Sub CommandButton3_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[R180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "R").Value
Worksheets(ActiveSheet.Name).Cells(i, "X").Value = Worksheets(ActiveSheet.Name).Cells(i, "X").Value + YER
Next i
MsgBox "AKTARIMI TAMAMLANDI"
End Sub
Private Sub CommandButton4_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[R180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "R").Value
Worksheets(ActiveSheet.Name).Cells(i, "X").Value = Worksheets(ActiveSheet.Name).Cells(i, "X").Value - YER
Next i
MsgBox "AKTARIM GERİ ALINDI"
End Sub
Private Sub CommandButton5_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[S180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "S").Value
Worksheets(ActiveSheet.Name).Cells(i, "Y").Value = Worksheets(ActiveSheet.Name).Cells(i, "Y").Value + YER
Next i
MsgBox "AKTARIMI TAMAMLANDI"
End Sub
Private Sub CommandButton6_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[S180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "S").Value
Worksheets(ActiveSheet.Name).Cells(i, "Y").Value = Worksheets(ActiveSheet.Name).Cells(i, "Y").Value - YER
Next i
MsgBox "AKTARIM GERİ ALINDI"
End Sub
Private Sub CommandButton7_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[T180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "T").Value
Worksheets(ActiveSheet.Name).Cells(i, "Z").Value = Worksheets(ActiveSheet.Name).Cells(i, "Z").Value + YER
Next i
MsgBox "AKTARIMI TAMAMLANDI"
End Sub
Private Sub CommandButton8_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[T180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "T").Value
Worksheets(ActiveSheet.Name).Cells(i, "Z").Value = Worksheets(ActiveSheet.Name).Cells(i, "Z").Value - YER
Next i
MsgBox "AKTARIM GERİ ALINDI"
End Sub
Private Sub CommandButton9_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[U180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "U").Value
Worksheets(ActiveSheet.Name).Cells(i, "AA").Value = Worksheets(ActiveSheet.Name).Cells(i, "AA").Value + YER
Next i
MsgBox "AKTARIMI TAMAMLANDI"
End Sub
Private Sub CommandButton10_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[U180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "U").Value
Worksheets(ActiveSheet.Name).Cells(i, "AA").Value = Worksheets(ActiveSheet.Name).Cells(i, "AA").Value - YER
Next i
MsgBox "AKTARIM GERİ ALINDI"
End Sub
Private Sub CommandButton11_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[V180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "V").Value
Worksheets(ActiveSheet.Name).Cells(i, "AB").Value = Worksheets(ActiveSheet.Name).Cells(i, "AB").Value + YER
Next i
MsgBox "AKTARIMI TAMAMLANDI"
End Sub
Private Sub CommandButton12_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[V180].End(3).Row
YER = Worksheets(ActiveSheet.Name).Cells(i, "V").Value
Worksheets(ActiveSheet.Name).Cells(i, "AB").Value = Worksheets(ActiveSheet.Name).Cells(i, "AB").Value - YER
Next i
MsgBox "AKTARIM GERİ ALINDI"
End Sub

Yukarıda yer alan kod Halit Uzmanı ait bir kod.
Bu kodlardan "1,3,5,7,9,11 olanları bir düğmeye
2,4,6,8,10,12 olanları da bir düğmeye bağlayacak kısa bir koda ihtiyacım var.
12 düğme yerine 2 düğme olsun istiyorum
Yardımcı olabilir misiniz?

 

[askm]

Aşağıdaki 2 kodu deneyin.

Private Sub CommandButton1_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[N180].End(3).Row
'YER = Worksheets(ActiveSheet.Name).Cells(i, "N").Value
Worksheets(ActiveSheet.Name).Cells(i, "W").Value = Worksheets(ActiveSheet.Name).Cells(i, "W").Value + Worksheets(ActiveSheet.Name).Cells(i, "N").Value '1
Worksheets(ActiveSheet.Name).Cells(i, "X").Value = Worksheets(ActiveSheet.Name).Cells(i, "X").Value + Worksheets(ActiveSheet.Name).Cells(i, "R").Value '3
Worksheets(ActiveSheet.Name).Cells(i, "Y").Value = Worksheets(ActiveSheet.Name).Cells(i, "Y").Value + Worksheets(ActiveSheet.Name).Cells(i, "S").Value '5
Worksheets(ActiveSheet.Name).Cells(i, "Z").Value = Worksheets(ActiveSheet.Name).Cells(i, "Z").Value + Worksheets(ActiveSheet.Name).Cells(i, "T").Value  '7
Worksheets(ActiveSheet.Name).Cells(i, "AA").Value = Worksheets(ActiveSheet.Name).Cells(i, "AA").Value + Worksheets(ActiveSheet.Name).Cells(i, "U").Value '9
Worksheets(ActiveSheet.Name).Cells(i, "AB").Value = Worksheets(ActiveSheet.Name).Cells(i, "AB").Value + Worksheets(ActiveSheet.Name).Cells(i, "V").Value '11
Next i
MsgBox "AKTARIMI TAMAMLANDI"
End Sub
Private Sub CommandButton2_Click()
For i = 7 To Worksheets(ActiveSheet.Name).[N180].End(3).Row
'YER = Worksheets(ActiveSheet.Name).Cells(i, "N").Value
'Worksheets(ActiveSheet.Name).Cells(i, "W").Value = Worksheets(ActiveSheet.Name).Cells(i, "W").Value - YER
Worksheets(ActiveSheet.Name).Cells(i, "W").Value = Worksheets(ActiveSheet.Name).Cells(i, "W").Value - Worksheets(ActiveSheet.Name).Cells(i, "N").Value '2
Worksheets(ActiveSheet.Name).Cells(i, "X").Value = Worksheets(ActiveSheet.Name).Cells(i, "X").Value - Worksheets(ActiveSheet.Name).Cells(i, "R").Value '4
Worksheets(ActiveSheet.Name).Cells(i, "Y").Value = Worksheets(ActiveSheet.Name).Cells(i, "Y").Value - Worksheets(ActiveSheet.Name).Cells(i, "S").Value '6
Worksheets(ActiveSheet.Name).Cells(i, "Z").Value = Worksheets(ActiveSheet.Name).Cells(i, "Z").Value - Worksheets(ActiveSheet.Name).Cells(i, "T").Value  '8
Worksheets(ActiveSheet.Name).Cells(i, "AA").Value = Worksheets(ActiveSheet.Name).Cells(i, "AA").Value - Worksheets(ActiveSheet.Name).Cells(i, "U").Value '10
Worksheets(ActiveSheet.Name).Cells(i, "AB").Value = Worksheets(ActiveSheet.Name).Cells(i, "AB").Value - Worksheets(ActiveSheet.Name).Cells(i, "V").Value '12

Next i
MsgBox "AKTARIM GERİ ALINDI"
End Sub

 

[sirkülasyon]

Teşekkür Ederim.
Rabbım senden razı olsun
Ellerine Sağlık