okaner

Bu formu excel'i ne kadar biliyoruz. excelin neresinden tuttuk onu sorgulayalım ve paylaşım ile bir birimize destek olalım amacıyla açıyorum.

Bir çok kişi (bu oran %98-99) kendisinin excel bildiğini sanır.Oysa gerçekte excellle neler yapabileceğini maalesef bilmemektedir.

Excel konusunda ben de kendimi çok bilenler değil %98-99 oranında görüyorum.
Ancak bu bilgi düzeyimizi bu form vasıtasıyla yukarılara çekebileceğimiz kanaatindeyim.


örnek excel de hiç makro yaptınız mı?

Makro nedir?
makro kısaca rutin işlemleri otomatik hale dönüştürme işlemidir.
örnek: Siz excelde bir program yapıyorsunuz günlük olarak mal satışlarınızı excelde bir sutuna giriyor daha sonra günlerin aylık olarak bir yan sütunda kümilatif hale getiriyorsunuz. Bu işlemi günlük ve kümilatif sütununda elle yapmanız gerekmekte oysa kümilatif işini bir tuş ataması ile makro vasıtasıyla yapabilirsiniz.

aşağıda bu işi yapan çok basitce tasarlanmış bir makro yazılımı var.
Bu kaynak kodlar. siz excelde Araçlar/Makro/Yeni Makro şeklinde makroyu çalıştırıp işinizi tamamladığınızda otomatik olarak oluşacaktır. Daha sonra içinde oynama veya yenilik yapabilirsiniz.


Aşağıda ören makro ek olarak verilmiştir. İnceleyip yenilikler yapabilirsiniz.
Yada daha ileri düzeylerini yapıp bu formda bizlerin istifadesine sunabilirsiniz.


Sub İŞİYAP()
'
' İŞİYAP Makro
' Makro okaner tarafından 24/7/2006 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+a
'
Range("D4:D13").Select
Application.CutCopyMode = False
Selection.Copy
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+RC[-1]+RC[-4]"
Range("G4").Select
Selection.AutoFill Destination:=Range("G4:G13"), Type:=xlFillDefault
Range("G4:G13").Select
Range("G4:G13").Select
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F4:G13").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B16").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub


EĞER BİLGİSAYARINIZ MAKROYU ÇALIŞTIRMIYORSA ÖNCE

EXCEL E GİRİP ARAÇLAR/MAKRO/GÜVENLİK BÖLÜMÜNDEN EN DÜŞÜK Ü SEÇİNİZ DAHA SONRA EXCELDEN ÇIKIP YENİDEN GİREREK BU İŞLEMİ AKTİF HALE GETİRİNİZ.



Herkese excel yeni keşifler dileğimle....
Devam edecek

Eklenmiş Dosya

örnekmakro1.zip (7,1 KB (Kilobyte), 15x kez indirilmiştir)

okaner

Arkadaşlar hızlı yazayım derken eksik yazmışım.
örne makro prg indirdiyseniz;
1.sayfada elle giriş var
2. sayfada sadece günlük kısmına verileri elle giriyorsunuz. aylık kısmı yani bugüne kadar kısmına ise Ctrl+a tuşu ile otomatik ekleme yapabilyorsunuz.
Hata benim bu açıklamayı unutmuşum.. Özür..