- Katılım
- 8 Mart 2007
- Mesajlar
- 582
- Excel Vers. ve Dili
- excel 2000 Türkçe
- Altın Üyelik Bitiş Tarihi
- 29-04-2021
Merhaba Arkadaşkar excel sayfasına eklediğim bir buton ile da hüceleri temizliyorum. Bu kodlara MsgBox eklemek istiyorum. Yani temizlemek istediğnizden emin misiniz gibi evet hayır mesaj uyarısını eklemek istiyorum. Çok uğraştım yapamadım.
Kod:
Sub Temizle()
Range("I2:K37").Select
Selection.ClearContents
Range("B2:C11,B13:C22,B24:C33").Select
Range("B24").Activate
ActiveWindow.SmallScroll Down:=24
Range("B2:C11,B13:C22,B24:C33,B35:C44,B46:C55").Select
Range("B46").Activate
ActiveWindow.SmallScroll Down:=19
Range("B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77").Select
Range("B68").Activate
ActiveWindow.SmallScroll Down:=28
Range("B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99") _
.Select
Range("B90").Activate
ActiveWindow.SmallScroll Down:=22
Range( _
"B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132" _
).Select
Range("B123").Activate
ActiveWindow.SmallScroll Down:=31
Range( _
"B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162" _
).Select
Range("B156").Activate
ActiveWindow.SmallScroll Down:=21
Range( _
"B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176" _
).Select
Range("B167").Activate
ActiveWindow.SmallScroll Down:=22
Range( _
"B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176,B178:C187,B189:C198" _
).Select
Range("B189").Activate
ActiveWindow.SmallScroll Down:=20
Range( _
"B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176,B178:C187,B189:C198,B200:C209,B211:C220" _
).Select
Range("B211").Activate
Selection.ClearContents
Range("B2").Select
End Sub