Excelde Bir kaç cambazlık

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.

 

Share
العربية简体中文EnglishFrançaisDeutschItalianoРусскийEspañolTürkçe