• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Basit ekstre hazırlanması

  • Konbuyu başlatan Konbuyu başlatan besen
  • Başlangıç tarihi Başlangıç tarihi
B

besen

Altın Üye
Katılım
23 Mart 2007
Mesajlar
822
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021
İngilizce
Merhaba ekteki tabloda veri ve işlemler sayfalarındaki bilgileri, Personel kodu bazında ayrı ayrı sayfaya aktarılması için yardımlarınızı arz ederim.
Saygılarımla.
 

Ekli dosyalar

Çok teşekkürler, tam istediğim gibi olmuş.
Sadece aktarılan bilgilerin formatını korumuyor, örneğin, tarih ve parasal bilgiler.
Aktarılan sayfalara hareketli bakiye ekledim, bunları da hesaplaması mümkün mü?
Bir de ad soyadı birleştirip, soyadı kolonunu iptal ettim. Makroda alanlarda kayma olmuş mudur?
Emeğinize sağlık.
 

Ekli dosyalar

Çok teşekkürler. Para kolonları formatı şu şekilde geliyor.
Borç Alacak Bakiye
1000 1000

İşlemler sayfasındaki gibi olabilir mi?
Borç Alacak Bakiye
1.000,00 1.000,00
 
besen' Alıntı:
Çok teşekkürler. Para kolonları formatı şu şekilde geliyor.
Borç Alacak Bakiye
1000 1000

İşlemler sayfasındaki gibi olabilir mi?
Borç Alacak Bakiye
1.000,00 1.000,00
Genişletmek için tıkla ...

Yukarda #4 numaralı mesajın içindeki dosyayı taleplerinize uygun olarak güncelledim. Dosyayı oradan indirip inceleyebilirsiniz.

Yeni Taleplerinizi Yazınız.

Selamlar..
 
Son düzenleme:
Haklısınız .Bir kolonun yerini değiştirmiştim ondan olmuş.
Veri ve İşlemler sayfaları haricinde yeni bir sayfa yarattığımda, aktar işleminden sonra bu sayfayı siliyor.
Tekrar teşekkür ederim.
 
besen' Alıntı:
Haklısınız .Bir kolonun yerini değiştirmiştim ondan olmuş.
Veri ve İşlemler sayfaları haricinde yeni bir sayfa yarattığımda, aktar işleminden sonra bu sayfayı siliyor.
Tekrar teşekkür ederim.
Genişletmek için tıkla ...

Selamlar...
 
kulomer46' Alıntı:
Selamlar...
Genişletmek için tıkla ...

Günaydın. "Veri ve İşlemler sayfaları haricinde yeni bir sayfa yarattığımda, aktar işleminden sonra bu sayfayı siliyor."
bunu kontrol edebilir misiniz.
Teşekkür ederim.
 
besen' Alıntı:
Günaydın. "Veri ve İşlemler sayfaları haricinde yeni bir sayfa eklediğimde, aktar işleminden sonra bu sayfayı siliyor."
bunu kontrol edebilir misiniz.
Teşekkür ederim.
Genişletmek için tıkla ...

Doğrudur. Program Veri ve İşlemler sayfaları haricinde yeni bir sayfa eklediğinizde, aktar işleminden sonra bu sayfayı siler.

Siz Nasıl bir değişiklik istediğinizi yazınız.
Yeni talebinizi programa ekleriz.

Selamlar...
 
Kullanıcının açtığı sayfalar kalsın.
Teşekkür ederim.
 
besen' Alıntı:
Kullanıcının açtığı sayfalar kalsın.
Teşekkür ederim.
Genişletmek için tıkla ...

Kullanıcının kendi isteğiyle eklediği yeni sayfalar hariç,
programın kendi eklediği sayfaları silip ihtiyaca göre yenisini ekleyen program yüklü dosya Ek' tedir.

Selamlar...
 

Ekli dosyalar

Kod: 
Sub Aktar()

    Set sV = Sheets("Veri")
    Set sI = Sheets("İşlemler")

    Set baslikV = sV.Range("A1:G1")
    Set baslikI = sI.Range("A1:G1")

    baslikVeri = Join(Application.Index(baslikV.Value, 0))
    Application.DisplayAlerts = False
    For i = Worksheets.Count To 1 Step -1
        With Sheets(i)
            If Not (.Name = "Veri" Or .Name = "İşlemler") Then
                If baslikVeri = Join(Application.Index(.Range("A1:G1").Value, 0)) Then .Delete
            End If
        End With
    Next i

    For i = 2 To sV.Cells(Rows.Count, 2).End(3).Row
        Sheets.Add , Sheets(2)
        ActiveSheet.Name = sV.Cells(i, 2).Value
        baslikV.Copy Range("A1")
        sV.Range("A" & i & ":G" & i).Copy Range("A2")
        baslikI.Copy Range("A4")
        Range("G4").Copy Range("H4")
        Range("H4").Value = "Bakiye"
        sat = 4
        Bakiye = 0

        Set kirmizi = Range("B2")
        For ii = 2 To sI.Cells(Rows.Count, 2).End(3).Row
            If sI.Cells(ii, 2) = Range("B2") Then
                sat = sat + 1
                sI.Cells(ii, 1).Resize(, 7).Copy Cells(sat, 1)
                Bakiye = Bakiye + Cells(sat, 7) - Cells(sat, 6)
                Cells(sat, 8).Value = Bakiye
                Cells(sat, 8).NumberFormat = Cells(sat, 7).NumberFormat
                Set kirmizi = Union(kirmizi, Cells(sat, 2))
            End If
        Next ii
        Set kirmizi = Union(kirmizi, Cells(sat, 8))
        kirmizi.Font.Bold = True
        kirmizi.Font.Color = vbRed
        Columns.AutoFit
    Next i
    Application.DisplayAlerts = True
End Sub
 
Son düzenleme:
veyselemre' Alıntı:
Kod: 
Sub Aktar()

    Set sV = Sheets("Veri")
    Set sI = Sheets("İşlemler")

    Set baslikV = sV.Range("A1:G1")
    Set baslikI = sI.Range("A1:G1")

    baslikVeri = Join(Application.Index(baslikV.Value, 0))
    Application.DisplayAlerts = False
    For i = Worksheets.Count To 1 Step -1
        With Sheets(i)
            If Not (.Name = "Veri" Or .Name = "İşlemler") Then
                If baslikVeri = Join(Application.Index(.Range("A1:G1").Value, 0)) Then .Delete
            End If
        End With
    Next i

    For i = 2 To sV.Cells(Rows.Count, 2).End(3).Row
        Sheets.Add , Sheets(2)
        ActiveSheet.Name = sV.Cells(i, 2).Value
        baslikV.Copy Range("A1")
        sV.Range("A" & i & ":G" & i).Copy Range("A2")
        baslikI.Copy Range("A4")
        Range("G4").Copy Range("H4")
        Range("H4").Value = "Bakiye"
        sat = 4
        Bakiye = 0

        Set kirmizi = Range("B2")
        For ii = 2 To sI.Cells(Rows.Count, 2).End(3).Row
            If sI.Cells(ii, 2) = Range("B2") Then
                sat = sat + 1
                sI.Cells(ii, 1).Resize(, 7).Copy Cells(sat, 1)
                Bakiye = Bakiye + Cells(sat, 7) - Cells(sat, 6)
                Cells(sat, 8).Value = Bakiye
                Cells(sat, 8).NumberFormat = Cells(sat, 7).NumberFormat
                Set kirmizi = Union(kirmizi, Cells(sat, 2))
            End If
        Next ii
        Set kirmizi = Union(kirmizi, Cells(sat, 8))
        kirmizi.Font.Bold = True
        kirmizi.Font.Color = vbRed
        Columns.AutoFit
    Next i
End Sub
Genişletmek için tıkla ...

Veyselemre kardeşim daha az kod satırı ile işi çözmüş. Eline Sağlık...
 
Son düzenleme:
Veysel emre ve kulomer hocam yaptığınız uygulama çok güzel olmuş bende aynı buna benzer bir konu açmıştım muygun hocamda buna yakın bir uygulma yaptı yalnız onda aktarma yapmada sorun yok yalnız aktarna yaptıktan sonra bir satırda düzeltme yaptığımda tekrar aktarma yapıyorum o bilgiyi yeni bir bilgi gibi görüyor aynı satırda düzeltme yapmıyor farklı bir satırdaha açıyor. bende formüle döndüm yaklaşık tablom 2000 satırdan oluşuyor ozaman da excel çok yavaş çalışıyor o da olmadı. size örneklerini atsam bu macrolara göre uyarlarmısınız ben macrodan anlamıyorum.

ben ürün adına göre sayfa oluşturmak istiyorum. 1 örnek benim kendi sayfam 2 örnek uygun beyin yaptığı sayfa
 

Ekli dosyalar

Merhaba,

Anladığım kadarıyla aliberberoğlu1981-MÜSTAHSİL dosyanızın F sütununda mesela "BEYAZ AYÇEKİRDEK" yazan metinlerden birini örneğin "İNCE BEYAZ AYÇEKİRDEK" gibi bir metinle değiştirdiğinizde, F sütunundaki tüm "BEYAZ AYÇEKİRDEK" yazan metinlerin otomatik "İNCE BEYAZ AYÇEKİRDEK" olarak değiştirilmesini istiyorsunuz.

Talebinizi yanlış anlamadıysam talebinizi bu şekilde anladım. Doğrumu anlamışım acaba?
 
yok hocam orada bir sorunum yok benim mesala bir müşteriye ait bilgileri giriyorum mesala beyaz ayçekirdek olsun bu müşterinin o satırında kg veya fiyatını veya başka birşeyini değiştirdiğimde onu farklı görüyor ikinci bir satır açıyor sizin burda yaptığınız çalışmada denedim satır içinde değişiklik yaptım o yine aynı satırda değişikliği yapıyor ikinci bir satır açmıyor. hocam bu formata gör tabloyu uyalarsanız çok sevinirim
 
aliberberoglu1981' Alıntı:
yok hocam orada bir sorunum yok benim mesala bir müşteriye ait bilgileri giriyorum mesala beyaz ayçekirdek olsun bu müşterinin o satırında kg veya fiyatını veya başka birşeyini değiştirdiğimde onu farklı görüyor ikinci bir satır açıyor sizin burda yaptığınız çalışmada denedim satır içinde değişiklik yaptım o yine aynı satırda değişikliği yapıyor ikinci bir satır açmıyor. hocam bu formata gör tabloyu uyalarsanız çok sevinirim
Genişletmek için tıkla ...


Değerli Arkadaşım,

Yukarda #15 nolu mesajınızdaki ek'li dosyayı indirdim. İstediğiniz formata göre değiştirip aşağıda ekliyorum.

Selamlar...
 

Ekli dosyalar

Son düzenleme:
hocam çok sağolun tam istediğim gibi satırdaki bilgileri değiştirdiğimde aktarma yaptığımda yeni satır eklemiyor. o satır içinde değişikliği yapıyor.

hocam birşey soracağım 1500-2000 satır arası bilgi giriyorum bu aktarmada çok bilgi olunca bir sıkıntı olurmu. birde uygun hocamın a sütünundaki formul bu aktarımla mı ilgili.
 
aliberberoglu1981' Alıntı:
hocam çok sağolun tam istediğim gibi satırdaki bilgileri değiştirdiğimde aktarma yaptığımda yeni satır eklemiyor. o satır içinde değişikliği yapıyor.

hocam birşey soracağım 1500-2000 satır arası bilgi giriyorum bu aktarmada çok bilgi olunca bir sıkıntı olurmu. birde uygun hocamın a sütünundaki formul bu aktarımla mı ilgili.
Genişletmek için tıkla ...


1500-2000 satır veri çok fazla değil.
Belki düğmeye basıp makroyu çalıştırdığınızda aktarma çok az uzun sürebilir.
Fakat başkaca sorun çıkmaz diye düşünüyorum.

aliberberoglu1981' Alıntı:
... birde uygun hocamın a sütünundaki formul bu aktarımla mı ilgili.
Genişletmek için tıkla ...

a sütununda bahsettiğiniz formül nerde bulamadım. Yani formülün olduğu dosya hangisi, formül nerede onu bulamadım.

Selamlar...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst