Soru Tik Seçili Olanları Sayfalara Aktar

[Hsn55]

Merhabalar;
Ekli dosyada Personel girişi sayfasında D19600 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?

Aktar.xlsm dosyasını indir - download

Aktar.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[ÖmerBey]

Merhaba,
Örnek dosyanız kişisel veri içerdiği için en kısa sürede paylaşımdan kaldırmanız iyi olacaktır.
İstediğiniz işlem için aşağıdaki kodu kullanabilirsiniz.

Sub kod()
Dim PS As Worksheet, BR As Worksheet, BL As Worksheet
Dim a As Integer, s As Integer, x As Integer
Dim b As Byte
Set PS = Sheets("PERSONEL GİRİŞİ")
Set BR = Sheets("BORDRO")
Set BL = Sheets("BANKA LİSTESİ")
s = WorksheetFunction.CountIf(PS.Range("D:D"), "R")
BR.Range("F19:W1000").ClearContents
BL.Range("F19:W1000").ClearContents
If s = 0 Then Exit Sub
ReDim dz(1 To s, 1 To 18)
For a = 19 To PS.Cells(Rows.Count, "F").End(3).Row
    If PS.Cells(a, "D") = "R" Then
        x = x + 1
        dz(x, 1) = x
        For b = 7 To 23
            dz(x, b - 5) = PS.Cells(a, b)
        Next
    End If
Next
BR.Range("F19").Resize(UBound(dz), UBound(dz, 2)).Value = dz
BL.Range("F19").Resize(UBound(dz), UBound(dz, 2)).Value = dz
End Sub

 

[Hsn55]

Ömer bey tüm tikler iptal edip butona basınca makro hata veriyor. Ayrıca tüm tikler seçili iken butona basınca tamamı aktarılıyor. Ancak tiklerin tümünü kaldırıp, bir kaç tanesini seçip aktar dediğimde yine tüm kayıtlar görünüyor. Oysa seçili olanları aktarması gerekiyor

 

[ÖmerBey]

İsteğiniz doğrultusunda yukarıdaki kodu güncelledim, deneyiniz.

 

[Hsn55]

Tikleri kaldırıp tekrar aktar dediğimde hiç biri aktarılmıyor

 

[ÖmerBey]

Tikleri kaldırıp tekrar aktar dediğimde hiç biri aktarılmıyor

Tam anlayamadım.
Aktar tuşuna her basıldığında yeni liste oluşmasını mı istiyorsunuz, yoksa önceki listeye ilave edilmesini mi istiyorsunuz?
Ben yeni liste oluşmasını istediğinizi düşünerek kodu tasarlamıştım. Yanlış mı anlamışım?

 

[Hsn55]

Hocam ben önceki kodu kullanmışım şimdi oldu teşekkür ederim. Herhangi bir olumsuz durum yada ilave eklemek gerekirse dönüş sağlarım teşekkürler

 

[Hsn55]

Ömer bey Bordro ve Banka Listesi sayfasına seçili tik kadar veri akrarılıyor. Bunun yanında aynı şekilde biçimlendirme de aktarmak mümkün mü?
yani kaç tane işretli ise o kadar veri tablo ile birlikte akrarılacak

 

[Hsn55]

Ömer hocam 8. mesajıma ilave olarak benim bordro ve banka listesi sayfasında örneğin 2 veri seçtim ve bu iki veri biçimlendirmesi ile birlikte bordro ve banka listesi sayfasına akrarılıyor. Bu aktarımdan sonra tablonun eln altında 5 satırda veri var bu 8 satır devamlı aktarılan verilerin altına formül bozulmayacak şeilde gelebilir mi

 

[ÖmerBey]

Bu aktarımdan sonra tablonun eln altında 5 satırda veri var bu 8 satır devamlı aktarılan verilerin altına formül bozulmayacak şeilde gelebilir mi

Bu kısmı anlayamadım.
Örnek dosyanızda bu kısım yer almıyor galiba.

 

[Hsn55]

Hocam akrılan sayfanın en altında 5 satırda aşağıdaki yazı var. Yani kaç tane tikli satır aktarırsam bu satırların en altında bu yazı var. Fakat bu yazı başka sayfadan formüllü olduğu için formül bozulmayacak


Kayıtlarımıza Uygundur
30.11.2023 30.11.2023
DÜZENLeYEN İMZALAYAN
KİŞİ ADI KİŞİ ADI
ÜNVANI ÜNVANI

 

[ÖmerBey]

Bu isteğinize uygun bir örnek dosya paylaşırsanız yardımcı olmaya çalışırım. (Bugün olamayabilir)
Kodların tamamen güncellenmesi gerekebilir gibi gözüküyor.

 

[Hsn55]

Hocam dosya ektedir. Bordro ve Banka Listesinde sayfaların kırmızı ile işretlediğim alanları aktarıldıktan sonra sayfaların en altına gelecek. Formülleri bozulmayacak Aktarılacak veriler 18:20 inci satırların arasına aktarılan satır kadar tablo ve veriler eklenecek. Personel sayfasındaki butona basmadan banka ve nordro sayfasını kontrol ediniz.

AKTAR_SON.xlsm dosyasını indir - download

AKTAR_SON.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[ÖmerBey]

Tekrar merhaba,
Son gönderdiğiniz dosyayı inceledim. Bu haliyle istediğiniz biçimde işin içinden çıkabileceğimi düşünmüyorum. Yapabilecek başka bir arkadaş yardımcı olacaktır.
İyi çalışmalar diliyorum.
Saygılarımla...

 

[Hsn55]

Ömer bey ilgi ve desteğiniz için çok teşekkür ederim .