Hayırlı Akşamlar
Birincisi Personel Listesi sayfamda Görevli Olduğu Ay sütununda personelin görevli olduğu aylara "✓" işaret konulmuştur. Hangi aylara tik "✓" işareti konulmuş ise o satırdaki personel bilgilerini sayfalara aktarmak,
İkincisi de Sayfalarda personellere verilen ekders saatlerinin...
Selamlar
Detaylı bilgiyi dosyamda açıklamaya çalıştım.
Yapmak istediğim kısaca; Ekteki dosyamda firma adlarına göre sayfa oluşturup ya da sayfa varsa direkt bilgileri Array(Dizi) yöntemi ya da Scripting Dictionary yöntemleri ile Yapmak . Şimdiden herkese çok teşekkür ederim.
Saygılar
Merhabalar;
Ekli dosyada Personel girişi sayfasında D19:D600 hücreleri arasında tik işreti seçili olan kayıtları sıra numarası 1'den başlamak sureti ile Banka Listesi ve bordro sayfalarına makro ile nasıl akrarabiliiriz. Yardımcı olabilirmisiniz?
https://s6.dosya.tc/server17/xifrjo/Aktar.xlsm.html
Merhaba arkadaşlar aşağıdaki kodu verileri diğer sayfalara aktarmak için kullanıyorum. Veriler aktarılırken format ve formüller ile birlikte aktarılıyor.
Yapmak istediğim format ve formüllerin aktarılmadan verileri aktarmak.
Sub Aktar()
Application.ScreenUpdating = False
For s = 6 To...
Hayırlı Günler sayın hocalarım.
Ekli dosyamda Ocak Şubat Mart ve Nisan adında sayfalar var. Genel sayfasında bulunmayan Ocak Şubat Mart ve Nisan sayfasında bulunan şahıs bilgilerini Genel sayfasında bulunan aynı mahalle adı altına gelecek şekilde yamam gerekiyor. Listede 20 civarında isim yazdım...
Hocam LIST sayfasında her satırda ürün bilgileri var. D sutununda ise o ürünün hangi kategoride olduğu yazıyor. Amacım D sutunundaki kategori isimlerini sayfalara aktarmasını istiyorum. Örneğin LIST sayfasındaki D sütununda "A KATEGORİSİ" yazan satırları A KATEGORİSİ sayfasına, "B KATEGORİSİ"...
Merhaba,
Mevcut UserForm ile soldaki listeden (ListBox1) seçilenler, sağdaki listeye (ListBox2) aktarılıyor ve SEÇİLENLERİ AKTAR düğmesi (CommanButton1) ile, "ANKARA_OCAK" sayfası "AH1" deki sütun adına ("B") göre kayıt yapabiliyorum,
İsteğim ;
Tek bir UserForm ile "A1" den Ay, "A3" ten...
İyi günler diliyorum. Sizden istediğim yardım, AKTAR düğmesine tıklayınca VERİLER sayfasında C2:C27 sütununda yer alan bilgilerin LİSTE A3:A28 ve LİSTEYIL A3:A28 sütünuna aktarması ancak yanında üstünde ve altında yer alan bilgilerin sabit kalması gerekiyor. Yani aktarma işlemi LİSTE ve LİSTEYIL...
Hocam bunu denemeden önce ilk attığınız kodu denedim, ilgili sayfalara 3-4 satır bilgi girişi yaptığımda sadece 2 satırını VERİLER sayfasına aktarıyor başka sayfaya geçip 3-4 satır da orada giriyorum oradan da sadece 1 satırını falan VERİLER sayfasına aldı. Dosyayı da sizinle paylaşıyorum şuanda.
Daha önce sitenin yardımıyla oluşturulmuş olan makro da e sütununda bir veya birden fazla satır atlayarak veri girişi yaparak aktar yaptığımda şu hata mesajını alıyorum. "son = Sheets(Sayfa).[B65536].End(3).Row + 1" sarı renge dönüyor birkaç değişiklik yaptım ama hatayı gideremedim .Satır...
Çizelgemde yaklaşık 200 kişi mevcut. Hizalarında da 31 günlük görevlendirildikleri günler için + işareti mevcut. Ben genel listeye + işaretlerini koyduktan sonra ilgili gün Örneğin ayın 6'sını süzüyorum. O güne kimler görevlendirlmiş, 06 numaralı sayfaya bu isimleri manuel kopyala yapıştır...
Bordro sayfasında FORM AÇ butonu ile maaş bordrosu hesaplanıp sayfaya aktarılıyor. Lakin Bordro sayfasında isimler arasında satır ve tutarlar birleştirildiği için
AKTAR butonu ile Matrah, ASGBORDRO ve BANKA Sayfasına ilgili verileri alt alta aktaramıyorum.
Sadece ASGBORDRO sayfasına...
Merhaba,
"Sayfaya veri girişi yapıldığı anda" demişsiniz. Bunu nasıl anlayacağız, ilerde yanlışlıklara da neden olabilir. O yüzden ben istediğiniz an aktarma yapacağınız kod yazdım. Hangi satırın aktarıldığını kontrol etmek için de veri sayfasında son sütun olan Q sütununu kullandım.
Q sütunu...
Merhaba
Alternatif olarak Ana Sayfada bulunan verileri (Örneğin 7000 satır) kullanıcının belirlediği satır adedi kadar,
aynı dosyada diğer sayfalara aktaran programda Ek 'tedir.
Selamlar...
Örnek Resim
İlgili Kod
Sub Aktar()
'05.05.2020 10:58
Sheets("Ana Sayfa").Select
son =...
Sayın Yusuf 44 son düzenlemeniz sıkıntısız çalışmakta fakat şöyle bir problem var diyelim ki X kişisi için tarih girişi yapıp kaydet dediğimde girilen tarihi X kişisinin bilgilerinin olduğu satırdaki boş olan ilk hücreye kopyalasın siz girilen tarihteki ayı baz almışsınız aya göre değil de nisan...
Aşağıdaki şekilde olabilir. Makro çalıştığında D sütunu dolu olan satırların tarihini ilgili sayfalara aktarır:
Sub aktar()
Set s1 = Sheets("TOPLU LİSTE")
son = s1.Cells(Rows.Count, "A").End(3).Row
s1.Range("A1:D" & son).Interior.Color = xlNone
For i = 2 To son
If IsDate(s1.Cells(i, "D")) =...
S.A Arkadaşlar Sayın Evren Beyin bu koduyla 1 sayfa ekleyip kopyalayıp açtığı yeni sayfaya yapıştırıyor.
Benim istediğim ise istediğim kadar sayfa açtıktan sonra o sayfalara veriyi kopyalayıp yapıştıracak. Yardımlarınz için şimdiden teşekkür ederim.
Sub sayfa_ekle_kopyala59()
Dim sh As...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.