Makro ile ilgili yardıma ihtiyacım var.

[ozakgecis]

Merhabalar,
Excel üzerinden takip ettiğim maaş işlemlerim için makro kurmaya ihtiyacım var.150 personel için ayrı ayrı sayfam var ve hepsinin içine mesailer, raporlar,izinler gibi verileri giriyorum.Benim istediğim bu dasyanın içine bir ana giriş yeri yapmak ve sıra ile tüm verileri girmek bir tuş ile girdiğim verileri ilgili personellerin sayfasına gitmesini sağlamak.Sanırım en kolay makro ile yapabilirim.
Ekte bir örnek paylaşmak istedim fakat eklemeye yerini bulamadım
Şimdiden teşekkürler,

Mine ÖZÇELİK DENİZ

 

[u.L.a.s]

Örnek dosyanızı zip veya rar la sıkıştırıp bu dosya yükleme sitesine yükleyin ve çıkan linki buraya gönderin oradan indirerek incelenebilir

http://s9.dosya.tc/

 

[ozakgecis]

Makro yardımı hakkında

Merhabalar,
Excel üzerinden takip ettiğim maaş işlemlerim için makro kurmaya ihtiyacım var.150 personel için ayrı ayrı sayfam var ve hepsinin içine mesailer, raporlar,izinler gibi verileri giriyorum.Benim istediğim bu dasyanın içine bir ana giriş yeri yapmak ve sıra ile tüm verileri girmek bir tuş ile girdiğim verileri ilgili personellerin sayfasına gitmesini sağlamak.Sanırım en kolay makro ile yapabilirim.

iLGİLİ ÖRNEK LİNK.

http://s9.dosya.tc/server/84xmzu/deneme_Makro.rar.html





Şimdiden[/url] teşekkürler,

Mine ÖZÇELİK DENİZ

 

[u.L.a.s]

Merhaba

gönderdiğiniz excel dosyası üstünde ufak bir düzenleme yapmak gerekiyor.

Öncelikle "Veri Girişi" Sheetini diğer sheetlerle aynı standarta getirmen gerekecek. Veri Girişi sheeti dışındaki sheetlerdeki veriler 6. Satırdan itibaren başlıyor.

"Veri Girişi" sheetinde ise 4. Satırdan itibaren başlıyor. Bu sebeple en üstten iki satır daha ekleyip tbaloyu aşağı kaydırmak yeterli olacaktır.

Veri Girişi sheetine bir buton koyarak bu butona aşağıdaki makroyu yazman yeterli olacaktır.

    Sub RoundedRectangle2_Tıklat()
      For i = 6 To Sheets("Veri Girişi").Range("a65536").End(3).Row
        sayfa = Sheets("Veri Girişi").Cells(i, "a").Text
        son = Sheets(sayfa).Range("b45").End(3).Row + 1
        Sheets("Veri Girişi").Range("b" & i & ":p" & i).Copy
        Sheets(sayfa).Range("b" & son).PasteSpecial Paste:=xlPasteValues
        son = son + 1
      Next
      Application.CutCopyMode = False
    End Sub

Gönderdiğiniz örnek dosyanın içerisindeki makro düzenlemesini aşağıdaki linkten indirerek inceleyebilirsiniz.

http://s9.dosya.tc/server/if42p1/deneme_makro.rar.html

 

[Korhan Ayhan]

Konu başlığınız sorunuzu anlatabilecek şekilde olmalıdır. Düzeltmenizi rica ederim.