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

Katılım
3 Aralık 2019
Mesajlar
3
Excel Vers. ve Dili
Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,069
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Metni silmek için:

PHP:
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:

PHP:
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ı:

Kod:
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
 
Üst