Hepimizin excelle bir yaşanmışlığı vardır öyle veya böyle:_).Bu yaşanmışlıklara istinaden bir kaç anı paylaşmamak saygısızlık olurdu.Aşaığıda bir kaç anıya rastlayacaksınız çok duygusal olmasada belki işinize yarar.
Excel de iki sütunda bulunan verilerin karşılaştırılarak ,aynı olanların renklendirilmesi ile farklı satırların belirlenmesi için aşağıda ki kodu Microsoft visual Basic For application ekranına(Excel açık ken Alt+F11 basmanız yeterli) yapıştırmanız yeterli.
Sub AyniOlanlariBul1()
Dim hucre1, hucre2 As Range
For Each hucre2 In Range(“b1:b205”).Cells
For Each hucre1 In Range(“A1:a3090”).Cells
If hucre1.Value = hucre2.Value And hucre2.Font.ColorIndex <> 3 And hucre1.Font.ColorIndex <> 3 Then
hucre1.Font.ColorIndex = 3
hucre2.Font.ColorIndex = 3
End If
Next
Next
End Sub
Excel de büyük-küçük ayrımı için aşağıda ki fonksiyonu kullanabilirsiniz.
=IF(CODE(MID(B2,2,1))>90,1,0)
Excel de aynı sütundaki verilerin farklı olanlarını listeler.
Sub karsılastır()
‘Sadece farklı olan satırları listeler.
‘Data aynı kolonda, ve sortlu olmalıdır
Kill “z:\alsanakutsalsu.txt”
Open “z:\alsanakutsalsu.txt” For Append As #1
Dim ocell As Range
Sheets(1).Activate
Range(“A1:A503”).Select
For Each ocell In Selection
If Trim(ocell.Value) <> eskideger And Trim(ocell.Value) <> Trim(Sheets(1).Cells(ocell.Row + 1, 1).Value) Then
Print #1, ocell.Value
End If
eskideger = Trim(ocell.Value)
Next
Close #1
End Sub
Excel çalışma sayfasında ki veriye Masaüstünden ulaşmak
Diyelim Excel dosyanızda onlarca çalışma sayfası var. Her birinin içlerinde tablolar, hesaplamalar, grafikler vb.. bilgiler olsun. Sizin en çok kullandığınız sayfanın sayfa12, görmek istediğiniz grafiğin de bu sayfadaki grafik3 adlı nesne olduğunu farz edelim. Dosyanızı açıp ilgili sayfayı bulu sonra da grafiği görüntülemek istiyorsunuz. Yahut herhangi bir hesap, veri giriş tablosunu…
Size çok güzel bir ipucu:
Dosyanızı açın, çalışma sayfasını seçin, çalıştığınız hücreleri seçin ( örneğin a2:d26 aralığı ) ve kopyala seçin. Dosyanızı minimize edin ve masaüstünü görünür şekle alın. Masaüstünde sağ fare tuşuna basın, kısayol yapıştır seçin. Masaüstünüze bir atık dosyası eklenecektir.
Şimdi Excel dosyanızı kapatın ve masaüstündeki atık dosyanızı çift tıklatın. Seçmiş olduğunuz alan hemen karşınıza gelecektir. Dilerseniz atık dosyanızın adını hatırlayabileceğiniz ,anlayabileceğiniz bir adla masaüstünde tutarak hangi amaçla kullanılacağını da unutmamış olursunuz. (Excelvba.net)
Excel de metni büyük harli yapmak için aşağıdaki makroyu kullanabilirsiniz.
Sub BuyukHarf()
For Each c In Selection.Cells
c.Value=Ucase$(c.Value)
Next c
End Sub
Metni küçük harf yapmak içinse şu makroyu kullanın:
Sub KucukHarf()
For Each c In Selection.Cells
c.Value=Lcase$(c.Value)
Next c
End Sub
Excel de otomatik toplama işlemi için;
Bir sütundaki tüm değerleri toplamını o sütunun altındaki hücreye yazdırmak istiyorsanız, bu hücreye gelip araç çubuğundaki Otomatik Toplam (üzerinde sigma simgesi var) düğmesine tıklayabilirsiniz. Klavyeyi tercih edenler ise <Alt>+<Shift>+0 tuşuna basabilir.
Excel de hızlı kopyalama yapmak için;
Bir hücrenin içeriğini bir alttaki hücreye kopyalamak istiyorsanız, alt hücreye gidip <Ctrl>+<“> tuşlarına basın.
