Excel'de Makro Eklemek - Exel'de Makro İle Veri Kaydı
 

Excel'de Makro Eklemek - Exel'de Makro İle Veri Kaydı
Excel'de Makro Eklemek - Exel'de Makro İle Veri Kaydı
Verileri makro ile kaydetmek üzerine bir ders hazırladım.

Excel'de küçük işletmeler için veri tabanı benzeri uygulamalar yapılabilir. Burada çeşitli işlemler için makro kullanmak gerekebilir.

Misal: Excel'de hasta sevk kağıdı yazdırmak istiyoruz:

X KAYMAKAMLIĞI
HASTA SEVK YAZDIRMA
X KURUMU
X KAYMAKAMLIĞI
KURUM AMİRİ.........
ÜNVANI.....
MEMUR NO: 1
KURUM ÇIKIŞ NO:
KURUM ÇIKIŞ TARİHİ:
MEMURUN ADI: ALİ
T.C. KİMLİK NO: 2521345
GÖREVİ: MÜDÜR
DER/KAD: 5/1
SİCİL NO: 754
ADRESİ: ....
SAĞLIK KARNESİ NO: A3768765865
EMEKLİ SİCİL NO:54

PERSONEL ARA

Verileri girdiğimiz bir sayfa,

yaptıktan sonra, başka bir sayfada form oluşturarak sevk almak isteyen kişinin kısa bilgilerini girelim. Burada işin kolay olması için sadece memur sıra numarasını girdiğimizde diğer bilgiler buradaki formüller marifetiyle sayfaya gelmektedir.

Başka bir sayfada ise kimler hangi tarihte sevk almışsa onu listeleyecek bir cetvel yapıyoruz.

Ana sayfada "Sevki kaydet" adını vediğimiz bir düğme yapıyoruz.
memur numarasını ana sayfadaki forma girip kaydet düğmesine basınca, aşağıdaki makro çalışıyor ve o gün sevk alanı ilgili sayfaya kalıcı olarak aktarıyor.

Sub Kayit()
'
' Kayit Makro
' Makro FİKRET ÇELİK tarafından 13.07.2004 tarihinde kaydedildi.
'

'
Range("B6:B14".Select
Selection.Copy
Sheets("sa".Select
Range("A1:H1".Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("anamenü".Select
Range("A1".Select
End Sub

Böylece kimin ne zaman, kaç kere sevk aldığını her an sorgulama imkanımız ortaya çıkar. Hem de personel hakkında devam bilgisi ediniriz.