Makro hücre içi düzenleme, düşeyara ve alt toplam ödevi

[ofdas]

Merhabalar,

Aşağıda bahsettim problemleri makro ile çözmeye çalışıyorum. Excel formüller ile çözebiliyorum fakat makrolar ile çözmem lazım.Dosya yüklemeye çalıştım fakat yapamadım. Yardımcı olabilirseniz çok çok sevinirim. Çok teşekkür ediyorum herkese. İyi forumlar

1. Anasayfada bir sütunda harf/rakam şeklinde veri var. Aşağıdaki örnekteki abc/ kısımlarının VBA ile silinip sadece rakamların kalmasını istiyorum.
abc/123
abc/980
abc/745
2. Veri sayfasında yukarıdaki harflerin silinmiş halleri ve şehirler var. Şehirleri, rakamlara göre VBA'da düşeyara ile getirmek istiyorum.
123 istanbul
980 ankara
745 izmir
3. Anasayfadaki 60, 55, 19 rakamlarının alt toplamını message box ile göstermek istiyorum.
123 istanbul 60
980 ankara 55
745 izmir 19

 

[YUSUF44]

Metni silmek için:

Sub metin_sil()
On Error Resume Next
son = Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    a = WorksheetFunction.Find("/", Sheets("Anasayfa").Cells(i, "A"))
    Sheets("Anasayfa").Cells(i, "A") = Right(Sheets("Anasayfa").Cells(i, "A"), Len(Sheets("Anasayfa").Cells(i, "A")) - a)
Next
End Sub

Düşeyara:

Sub duseyara()
On Error Resume Next
son = Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row
veri = Sheets("Veri").Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    Sheets("Anasayfa").Cells(i, "B") = WorksheetFunction.VLookup(Sheets("Anasayfa").Cells(i, "A"), Sheets("Veri").Range("A1:B" & veri), 2, 0)
Next
End Sub

Toplam mesajı:

Sub toplama()
son = Sheets("Anasayfa").Cells(Rows.Count, "C").End(3).Row
toplam = WorksheetFunction.Sum(Sheets("Anasayfa").Range("C1:C" & son))
MsgBox "C1:C" & son & " aralığının toplamı:" & Chr(10) & Chr(10) & toplam, vbInformation
End Sub

 

[ofdas]

Merhaba Yusuf Bey,
Çok teşekkür ediyorum. Çok çok sağolun.