Çözüldü Üsteki hücre dolu ise kopyala

Herkese merhaba bir S.M.M.M. olarak firmaların yevmiye kayıtlarını excelden izliyoruz dolayısı ile excelsiz günümüz geçmiyor, bu sebepten ötürü temel seviyede birçok excel dersi aldım fakat excel öyle büyük bir deniz ki biliyorum benim saatlerimi alan işleri kimileri için dakikalar içerisinde çözülebilecek ekte bir yevmiye kaydı bulunuyor. Kısaca ne yapmak istediğimi tarif edeyim.

Yevmiye tablosu bu ekran görüntüsünde görüleceği üzere "Yevmiye no" sütununda yevmiye numarası bir artana kadar yazılmıyor ( 11118 yevmiye numarası 11119 yevmiye numarasına gelinceye kadar yer alan bütün satırlara ait) dolayısı ile öncelikle bunun bir çözümünü istirham ediyorum. Sonrasında bana esasında lazım olan satılar
XXX.XX.XX .......Hesabı (örn.103.01.020 ALBARAKA TÜRK KATILIM BANKASI veya 102.03.02 Albaraka 1940 0000 02 usd) "Borç" sütunda mı yer alıyor yoksa "Alacak" sütununda mı? üstteki ana hesap kodu (XXX....Hesabı veya 103 VERİLEN ÇEKLER VE ÖDEME EMİRLERİ (-) gibi) satırına bakmadan anlayamıyorum.
Ekran fotosunda görüleceği üzere "103.01.020 ALBARAKA TÜRK KATILIM BANKASI" borçlu fakat ilgili satırın "Borç-Alacak" sütununda bir şey yazmıyor "Detay" sütununda sadece rakam yazıyor çalışmamı rahat yapabilmem için hangisi borçlu hangisi alacaklı ise ilgili sütunların dolu olması gerekiyor.
Yevmiye Tablosu Son Bu ekran görüntüsünde exceli istediğim gibi şekillendirdim fakat sadece birkaç satırı bile yaparken çok zaman kaybettim. İsteğim bütün bu işlemlerin kolaylıkla yapılması.
Şunuda ayrıca belirteyim excelde veriler önce borçlu sonra alacaklı hesap olarak her zaman sıralı gelmiyor. Kaydı yapan şahıs önce hangi satırı girmiş ise programa program o sıra ile excele atıyor. Burada kaydı yapan arkadaşa bir sıraya uy dememizde mümkün değil. İlgili sıralama değişikliği 11123 yevmiye numaralı mavi boyalı maddelerde görülüyor. Excelin tamamını ekliyorum bu hususta bana yardımcı olabilirseniz sizin için bende bir şeyler yapmak isterim. Grup kurallarını okudum umarım birbirimize faydalı oluruz. Saygılar
excel

Dosyayı ekler misiniz?
s6 dosya hata veriyor

Yevmiye no için kod

azraep' Alıntı:

Yevmiye no için kod

Kod:Panoya kopyala

Sub YevNo()
    ss = Cells(Rows.Count, 2).End(xlUp).Row
    For a = 2 To ss
        If Cells(a, 1) > 1 Then
            b = Cells(a, 1)
        Else
            Cells(a, 1) = b
        End If
    Next a
   
End Sub

Genişletmek için tıkla ...

Farklı bir excel sayfasında fakat yine "A sütununun yeni bir değer gelinceye kadar kopyalanmasını istediğim" çalıştıramadım sayfa adıda aynı nerede yanlış yapıyorum acaba

ilk örnekte B kolonu doluydu.
bunda onlarda boş.
dolayısıyla arada nereleri dolduracak bulamıyor.
dosyanızı eklerseniz ona göre yeniden düzenleme yapmaya çalışırım

Düzeltme...
dosyayı görmediğim için ful dolu satır F kolonda resme göre


siz formülde Eşittir ve büyük kullanmışsınız ama değer vermemişsiniz( neye göre kıyaslama yapacağını)

azraep' Alıntı:

Düzeltme...
dosyayı görmediğim için ful dolu satır F kolonda resme göre

Kod:Panoya kopyala

ss = Cells(Rows.Count, 6).End(xlUp).Row

For a = 4 To ss

        If sf.Cells(a, 1) > 1 Then

            b = sf.Cells(a, 1)

        Else

            sf.Cells(a, 1) = b

        End If

 Next a

siz formülde Eşittir ve büyük kullanmışsınız ama değer vermemişsiniz( neye göre kıyaslama yapacağını)

Genişletmek için tıkla ...

Excel VBA ve makrodan çok anlamıyorum fakat bazen B sütunu bazen A bazen F burada formülün içerisindeki harfi değiştirip kullanabilirim diye düşünüyorum bu şekilde bir formül mümkün mü?
B yazıyor bana A lazım B silip A yazsam sadece A sütunun bir üstekini tekrar etse

orhanyildiz2746' Alıntı:

Excel VBA ve makrodan çok anlamıyorum fakat bazen B sütunu bazen A bazen F burada formülün içerisindeki harfi değiştirip kullanabilirim diye düşünüyorum bu şekilde bir formül mümkün mü?
B yazıyor bana A lazım B silip A yazsam sadece A sütunun bir üstekini tekrar etse

Genişletmek için tıkla ...

ss = Cells(Rows.Count, 6).End(xlUp).Row

Formüldeki 6 sütun sayısı yani en dolu olan sütun
bu örnekte B sütunu da boşluklar olduğu için hata verebilir.
F de her satırda bir sayı - değer olduğu için tam sonuç alabiliri dedim.

For a = 4 To ss
buradki a sizin yazmasını istediğiniz satırdan başlayacağı olmalı


.Cells(a, 1)
1 de kaçıncı sütunda veriniz varsa onun sayısı yada "A" ... "F" gibi yazabilirsiniz.

Merhaba Yevmiye No İçin PowerQuery-Doldur Özelliğini Kullanabilirsiniz.
Örnek Videoyu uyguladıktan sonra 2.Tablodan 1.Tabloya Verileri Kopyala Yapıştır Yapabilirsiniz.

ferhatkirbas' Alıntı:

Merhaba Yevmiye No İçin PowerQuery-Doldur Özelliğini Kullanabilirsiniz.
Örnek Videoyu uyguladıktan sonra 2.Tablodan 1.Tabloya Verileri Kopyala Yapıştır Yapabilirsiniz.

Genişletmek için tıkla ...

Bende tablodan kısmı çıkmıyor

Bu işlem için Power Query gibi gelişmiş bir özelliği kullanmanıza gerek yok aslında..

Şöyle ilerleyebilirsiniz;

• A Sütununu seçin
• F5 tuşuna basın
• Git penceresinin sol alt köşesindeki Özel butonuna tıklayın
• Özel git penceresindeki Boşluklar seçeneğini seçin
• Tamam butonuna basın
• Seçilen hücreye =A2 yazıp CTRL + ENTER tuşların basın.