Makroya bıraz farklı yoldan toplama cıkarma yaptırmak

[XExcel]

Makroya bıraz farklı yoldan işlem yaptırmak

Merhabalar,

Ekte açıklamayı yaptım

Teşekürler

 

[Necdet]

Merhaba,

Umarım doğru anlamışımdır.

Birinci sayfadaki başlığı çıkartarak kodları yazdım. Aynı sırada olsun diye, öyle değilse kendinize göre kodları düzenleyiniz.

Sub TC()
Dim s1  As Worksheet
Dim s2  As Worksheet
Dim Hucre As Range
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("A1:V65500").ClearContents
For Each Hucre In s1.Range("A1:V" & s1.[A65536].End(3).Row)
    s2.Range(Hucre.Address) = Hucre + CDbl(s1.Cells(Hucre.Row, Hucre.Column + 22))
Next Hucre
MsgBox "İşlem Tamamlanmıştır..", vbInformation, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

 

[Necdet]

Ne şimdi bu?
Sorunuzu yanıtladık, yanıtladıktan 2 saat sonra dosyanızı değiştiriyorsunuz ve hiç bir açıklama yapmıyorsunuz.

Dalga mı geçiyorsunuz?