• DİKKAT

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

Ödenmiş Senet veya çeklerin aktarılması

senuyurken

senuyurken

Katılım
20 Nisan 2008
Mesajlar
185
Excel Vers. ve Dili
Office 2021 TR
Öncelikle Muygun ve İhsan Kardeşime yardımlarından dolayı teşekkür ederim..

Arkadaşlarımızın yapmışl olduğu çalışma sonucunda aşağıdaki dosya elde edilmiştir..

Arkadaşlar aşağıdaki dosyada SAYFA 1 çek ve senet listesi var. B listede ödemesi ödemesi yapılan çek ve senetlerin SAYFA 3 e (ödemesi yapılan) kısma aktarılmasını istiyorum. Ve bu ÇEK ve senetlerin Sayfa 1 den çıkarılık SAYFA 3e aktarılmasını istiyorum.

Tüm arkadaşlara teşekkür ederim...
 

Ekli dosyalar

senuyurken' Alıntı:
ödenenler sayfa 1 de J SUTUNUNDA durum kısmı oş olan satırlardır..

İlginize teşekkür ederim...
Genişletmek için tıkla ...

Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: 
Option Explicit
Sub ödemiş_aktar_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Ödenmişleri Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Dim bordo, mavi
Set bordo = Sheets("Sayfa1")
Set mavi = Sheets("ÖDENMİŞ SENET VE ÇEKLER")
mavi.Range("A4:L" & Rows.Count).ClearContents
kaplan = 4
For ts = 3 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If bordo.Cells(ts, "J") = 0 Then
bordo.Rows(ts).Copy Destination:=mavi.Range("A" & kaplan)
kaplan = kaplan + 1
End If
Next
mavi.Range("A4:L" & Rows.Count).Interior.ColorIndex = xlNone
mavi.Range("A4:L" & Rows.Count).Font.ColorIndex = xlAutomatic
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Ödenmiş Olanlar Aktarıldı", , "Bitiş"
End Sub
 
İhsan Tank' Alıntı:
Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: 
Option Explicit
Sub ödemiş_aktar_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Ödenmişleri Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Dim bordo, mavi
Set bordo = Sheets("Sayfa1")
Set mavi = Sheets("ÖDENMİŞ SENET VE ÇEKLER")
mavi.Range("A4:L" & Rows.Count).ClearContents
kaplan = 4
For ts = 3 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If bordo.Cells(ts, "J") = 0 Then
bordo.Rows(ts).Copy Destination:=mavi.Range("A" & kaplan)
kaplan = kaplan + 1
End If
Next
mavi.Range("A4:L" & Rows.Count).Interior.ColorIndex = xlNone
mavi.Range("A4:L" & Rows.Count).Font.ColorIndex = xlAutomatic
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Ödenmiş Olanlar Aktarıldı", , "Bitiş"
End Sub
Genişletmek için tıkla ...



Modüle yapıştırdım herhangi bir değişiklik olmadı...

sayfa de denedim
 
senuyurken' Alıntı:
şimi yapabildim ama aktarılan senetlerin sayfa 1 den çıkartılmasını istiyorum...


Teşekkür ederim...
Genişletmek için tıkla ...

Sayfa'daki verilerin silinmesini mi istiyorsunuz_?
Bunu yaparsak oradaki formüller bozulur diye ben yapmamıştım illa yapın derseniz problem değil bir ekleme ile bu işlem yapılır.
 
İhsan Tank' Alıntı:
Sayfa'daki verilerin silinmesini mi istiyorsunuz_?
Bunu yaparsak oradaki formüller bozulur diye ben yapmamıştım illa yapın derseniz problem değil bir ekleme ile bu işlem yapılır.
Genişletmek için tıkla ...

Formuller bozulacaksa silinmesin.. Baska nasıl bir alternatif dusunebılırız acaba..

Ödenen çek ve senetlerin sayfa bir de kalması kafa karıstırabılır ve veri çokluğu olur diye dusunmustum.....

Sizce nasıl yapabiliriz...



Teşekkür ederimmm....
 
senuyurken' Alıntı:
Formuller bozulacaksa silinmesin.. Baska nasıl bir alternatif dusunebılırız acaba..

Ödenen çek ve senetlerin sayfa bir de kalması kafa karıstırabılır ve veri çokluğu olur diye dusunmustum.....

Sizce nasıl yapabiliriz...



Teşekkür ederimmm....
Genişletmek için tıkla ...

Mesela hepsini makro ile yapabilirsiniz böyle olunca silinse bile herhangi bir değişiklik olmaz_?.
Ve dosyanızda bir kasılma mevcut olmaz diye düşünüyorum. Alternatif çözümler olabilir sitede sorun mutlaka farklı çözümler gelecektir.
 
İhsan Tank' Alıntı:
Mesela hepsini makro ile yapabilirsiniz böyle olunca silinse bile herhangi bir değişiklik olmaz_?.
Ve dosyanızda bir kasılma mevcut olmaz diye düşünüyorum. Alternatif çözümler olabilir sitede sorun mutlaka farklı çözümler gelecektir.
Genişletmek için tıkla ...

İyi Akşamlar İhsan Kardeşim.. Excel Bilgim yok denecek kadar az o nedenle siz bir tane makro örnek dosyama uygulayabılırmısınız..


Teşekkür ediyorum...
 
senuyurken' Alıntı:
İyi Akşamlar İhsan Kardeşim.. Excel Bilgim yok denecek kadar az o nedenle siz bir tane makro örnek dosyama uygulayabılırmısınız..


Teşekkür ediyorum...
Genişletmek için tıkla ...

Bunu ben yaparsam siz nasıl öğreneceksiniz_?
Önce makro güvenlik ayarını düşürün Anlatımı için tıklayın.
Sonra boş bir module açıyoruz. Module ekleme anlatımı için tıklayın.
Verdiğim kodu oluşturduğunuz module kopyalayın. Sonra buton oluşturun Kodu butona atama anlatımı için tıklayın.
Sonra kayıt yapmak için kod olduğu için excel dosyasını kayıt yapamıyacaksınız bunun yerine Bu resimde anlatılan şeklinde kayıt yapınız.
 
Verdiğiniz kodu uyguladığımda sayfa birdeki veri silinecekmi formul olayı yani ihsan kardeş...
 
İhsan Tank' Alıntı:
Hayır silinmeyecek orada kalacak
Genişletmek için tıkla ...



İhsan kardeş süper butonu ekledim...

sayfa birden aktarılanların sayfa 1 gorunmemesi için ne yapmalıyım.

office 2010 oldugu için azıcık zorlandım ama oldu...

Sayfa 1 deki ödenen senetlerin aktarıldıktan sonra listede gorunmemesi için ne yapmalıyım.. Pratik bir yolu varmı acaba...

teşekkür ederimmmm.... süperrrr
 
senuyurken' Alıntı:
İhsan kardeş süper butonu ekledim...

sayfa birden aktarılanların sayfa 1 gorunmemesi için ne yapmalıyım.

office 2010 oldugu için azıcık zorlandım ama oldu...

Sayfa 1 deki ödenen senetlerin aktarıldıktan sonra listede gorunmemesi için ne yapmalıyım.. Pratik bir yolu varmı acaba...

teşekkür ederimmmm.... süperrrr
Genişletmek için tıkla ...

O satırları gizleyebiliriz tabi işinize yararsa
 
İhsan Tank' Alıntı:
O satırları gizleyebiliriz tabi işinize yararsa
Genişletmek için tıkla ...


İhsan kardeş önemli olan sayfa 1 de senetlerin listelenmesi ödemesi Kısmi yapılmış yada Hiç ödeme yapılmamış olanların listesi.. Ödeme yapılmış olan senetlerin orda bulunması biraz gereksiz gibi geldi bana.. Ama bu şekli ilede benim işimi görür özellikle sayfa ikide günü gelenlerin ve geçenlerin listelenmesi harika ve Kısmi Ödeme Yapılan senetlerin de durumlarında kalan tutarları göstermesi çok güzel..


Ellerinize sağlık....

Teşekkürler ediyorum, Kocaman
 
senuyurken' Alıntı:
İhsan kardeş önemli olan sayfa 1 de senetlerin listelenmesi ödemesi Kısmi yapılmış yada Hiç ödeme yapılmamış olanların listesi.. Ödeme yapılmış olan senetlerin orda bulunması biraz gereksiz gibi geldi bana.. Ama bu şekli ilede benim işimi görür özellikle sayfa ikide günü gelenlerin ve geçenlerin listelenmesi harika ve Kısmi Ödeme Yapılan senetlerin de durumlarında kalan tutarları göstermesi çok güzel..


Ellerinize sağlık....

Teşekkürler ediyorum, Kocaman
Genişletmek için tıkla ...

Rica ederim
:keyif:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst