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

**Prof. Dr. Sinsi** · 09-09-2012

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

09-09-2012	#1
Prof. Dr. Sinsi	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İ TC 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 13072004 tarihinde kaydedildi ' ' Range("B6:B14"Select SelectionCopy Sheets("sa"Select Range("A1:H1"Select SelectionEnd(xlDown)Select ActiveCellOffset(1, 0)Range("A1"Select SelectionPasteSpecial 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