makro

Dim YeniSayfa As Worksheet Dim SayfaSay SayfaSay = Worksheets.Count Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay)) With YeniSayfa For i = 1 To SayfaSay Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1)) Next End With Not:Tüm sayfalardaki filtreler...

Sub linksil() [a1:a1000].Hyperlinks.Delete End Sub

Sayıların Rakama çevrilmesi ile ilgili bir excel çalışması bu bölümde verilmişti. Bu makro girilen rakamların TL ve KR ye çevrilmesini sağlıyor. Girilen sayının Tamsayı bölümü TL, Ondalık kısmı ise Kr olarak yazıya çevriliyor. Örnek: 10,05 On TL, Beş Kr şeklinde. Makronun kullanımı: A1...