Belirlenen hücrelere toplu değer girme,silme ve değiştirme

[caglarr65]

İyi günler,
Çalışma kitabında bulunan sayfalardan ilk 5 sayfanın Örneğin B2 hücrelerine aynı değeri girmek ,silmek veya değiştirmek istiyorum.Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Sub deger_gir()
Dim deg, i As Byte
deg = InputBox("B2 Hücrelerine Girilecek Değeri Giriniz :", "B2'ye DEĞER GİR")
If deg = False Then Exit Sub
For i = 1 To 5
    If IsDate(deg) Then
        Sheets(i).Range("B2").Value = CDate(deg)
        Sheets(i).Range("B2").NumberFormat = "dd.mm.yyyy"
    ElseIf IsNumeric(deg) Then
        Sheets(i).Range("B2").Value = CDbl(deg)
        Sheets(i).Range("B2").NumberFormat = "#,##0.00"
    Else
        Sheets(i).Range("B2").Value = deg
    End If
Next i
MsgBox "Veriler B2 hücrelerine Girildi.", vbOKOnly + vbInformation, "VERİ - GİRİLDİ"
End Sub

 

[caglarr65]

Sayın:Evren Gizlen
Tam istediğim gibi.Çok teşekkür ederim.Elinize sağlık. Tüm sayfaları seçmek için kodda nasıl bir değişiklik yapabiliriz.

 

[Orion1]

Sayın:Evren Gizlen
Tam istediğim gibi.Çok teşekkür ederim.Elinize sağlık.

Rica ederim.
İyi çalışmalar.