31 Sayfayı 1 sayfaya kopyalama

[ovacik1971]

Merhaba,
Benim sorunum günlük olarak 1,2,3...31 sayfalar bulunan ''Alınan Telefonlardaki'' dolu olan hücrelerdeki bilgileri ''Cihaz Stok'' sayfasına tarihe göre aralarında boşluk kalmadan kopyalamak.Yardımlarınızı rica ediyorum.

İyi çalışmalar.

 

[yanginci34]

Dosyanızın formatında örnek dosya eklerseniz daha hızlı cevap alabilirsiniz.

 

[ovacik1971]

Altın üye olmadığımdan ekleme yapamadım.

 

[GursoyC]

dosyanızı https://dosya.co/ sitesine yükleyip linkini paylaşabilirsiniz.

 

[ovacik1971]

dosyanızı https://dosya.co/ sitesine yükleyip linkini paylaşabilirsiniz.

2019 _NİSAN.rar - 775 KB
https://dosya.co/xi0xv4eb7vc9/2019__NİSAN.rar.html

 

[GursoyC]

1-31 Aralığındaki tüm sayfalarınızdaki A28:A47 bölgesini yani tarihlerini önceden girdiğiniz kısımları silin. O bölgeye

=if(B28="";"";$C$1)

formülünü yazın. (1 isimli sayfanızda ben yaptım). Sadece alış yapılan ürün olursa onun yanına tarih girecektir.
Bu şekliyle ekteki dosyadaki CIHAZ STOK sayfanıza eklediğim düğmeye atadığım kod istediğinizi yapacaktır.

https://dosya.co/5r3fbw5sjryv/2019__NİSAN_YENİ_SATIŞ_RAPORU_uedit.xlsm.html

 

[ovacik1971]

1-31 Aralığındaki tüm sayfalarınızdaki A28:A47 bölgesini yani tarihlerini önceden girdiğiniz kısımları silin. O bölgeye

=if(B28="";"";$C$1)

formülünü yazın. (1 isimli sayfanızda ben yaptım). Sadece alış yapılan ürün olursa onun yanına tarih girecektir.
Bu şekliyle ekteki dosyadaki CIHAZ STOK sayfanıza eklediğim düğmeye atadığım kod istediğinizi yapacaktır.

https://dosya.co/5r3fbw5sjryv/2019__NİSAN_YENİ_SATIŞ_RAPORU_uedit.xlsm.html

Deneyip size dönüş yapacağım.Teşekkür ederim.

 

[ovacik1971]

1. günde 2 ürün sayfaya atıyor altına da 1.günde olmayan tarihsiz ürün atıyor.
2. gününde sadece tarihini atıyor.Teşekkür ederim.Zahmet veriyorum.

 

[GursoyC]

>1-31 sayfa aralığındaki tüm sayfalarınızdaki A28:A47 bölgesini yani tarihlerini önceden girdiğiniz kısımları silin. O bölgeye....
ile başlayan işlemleri yaptınız mı?

 

[ovacik1971]

>1-31 sayfa aralığındaki tüm sayfalarınızdaki A28:A47 bölgesini yani tarihlerini önceden girdiğiniz kısımları silin. O bölgeye....
ile başlayan işlemleri yaptınız mı?

Dediğiniz gibi yaptım nafile aynı

 

[GursoyC]

yaptığınız dosyayı yükler misiniz.

 

[Korhan Ayhan]

Alternatif;

CİHAZ STOK sayfasındai veriler silinmeden aktarım yapılmaktadır.

Verilerin her aktarımda silinmesi gerekiyorsa koda ekleme yapmak gerekecektir.

Sub Aktar()
    Dim S1 As Worksheet, Sayfa As Worksheet, X As Byte
    
    Set S1 = Sheets("CİHAZ STOK")
    
    For X = 1 To 31
        Set Sayfa = Sheets(CStr(X))
        Son = S1.Cells(Rows.Count, 1).End(3).Row + 1
        For Y = 28 To 47
            If Sayfa.Cells(Y, 2) <> "" Then
                S1.Cells(Son, 1) = Sayfa.Cells(Y, 1)
                S1.Cells(Son, 2) = Sayfa.Cells(Y, 2)
                S1.Cells(Son, 3) = Sayfa.Cells(Y, 3)
                S1.Cells(Son, 6) = Sayfa.Cells(Y, 5)
                Son = Son + 1
            End If
        Next
    Next
    
    Set Sayfa = Nothing
    Set S1 = Nothing
    
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ovacik1971]

Kusura bakmayın cenazemiz vardı bakamadım en kısa zamanda bakıp size döneceğim.Teşekkür ederim.

 

[Korhan Ayhan]

Merhuma Allah rahmet eylesin. Mekânı Cennet olsun.

Sizlerinde başınız sağolsun.. Allah sabırlar versin.