BA FORMU HAZIRLIK (kod sahibi Necdet Yeşertener )

eraser · 30 Mayıs 2008

Bu formdaki kodlar tümü ile Sayın Necdet Yeşertener Bey'e ait olup
Kendilerine ayrıca Buradan teşükkür ediyorum.
Bu çalışma ile uzun süre uğraş vermem gereken işlerimi ortalama olarak kısa süreye düşürdüm.

Sayın Necdet Bey bu çalışmada farklı olarak ilaveler gerektiğinden ektedeki dosya ile igilenebilirseniz.Çok Memnun olurum
Önceki çalışmanız gereği işlerimi çok çok azaltım.
Şimdiki değişiklikler gereği tam bir program özelliği kazanıp bütün muhasebeciler bunu kullanabilirler sayenizde.

Bu son yapacağını çalışmanız ile form son evresini tamamlamış olacak

Saygılarımla
Şimdiden teşekkürler

Z.Kolaylı

eraser · 31 Mayıs 2008

Ba Forum Hazirlik_yardim

Arkadaşlar Merhaba;

Yanlış anlaşılmış olmayayım diye yeniden başlık açıyorum.
Ekli Tabloyu Maliye verilmek üzere olan Ba formlarında kullanmak üzere yapılan çalışmada Makro kodlarında Sağolsun Necdet Bey Yardımcı oldu.

Fakat birtakım ilaveler gereği bazı eklemelere ihtiyacım var.Sizlerde bakabilirseniz sevinirim.

Bu konuda Necdet bey sürekli yardımcı olduğu için direk ondan yardım talep ediyorum. Kendileri meşgül olduğu için ilgilenemediler herhalde.

Sizlerinde bu konuyla ilgili olarak yardımcı olmanız hususunda ricalarımı sunuyorum.

Necdet · 31 Mayıs 2008

Merhaba,

Son günlerde pek gelemedim, umarım doğru anlamışımdır.

Kod:

Public Sub Aktar()
Application.ScreenUpdating = False
Set sm = Sheets("MUAV&#304;N")
Set sr = Sheets("RAPOR")
Set sb = Sheets("BS_FORMAT")
sm.Select
sm.Range("A2:E" & sm.[E65536].End(3).Row).Sort Key1:=sm.[D2]
sr.Range("A2:E" & sr.[E65536].End(3).Row).ClearContents
sr.Range("A2:E" & sr.[E65536].End(3).Row).Font.ColorIndex = 1
sb.Range("A2:C" & sb.[C65536].End(3).Row).Font.ColorIndex = 1
sb.Range("A2:C" & sb.[C65536].End(3).Row).ClearContents
Sat = 1
For i = 2 To sm.[A65536].End(3).Row
    If sm.Cells(i, "D") <> EskiDeger Then
        Sat = Sat + 1
 
        sr.Cells(Sat, "A") = sm.Cells(i, "A")
        sr.Cells(Sat, "B") = sm.Cells(i, "B")
        sr.Cells(Sat, "C") = sm.Cells(i, "C")
 
        sr.Cells(Sat, "D") = sm.Cells(i, "D")
        sr.Cells(Sat, "E") = sm.Cells(i, "E")
        EskiDeger = sm.Cells(i, "D")
 
    Else
        sr.Cells(Sat, "E") = sr.Cells(Sat, "E") + sm.Cells(i, "E")
    End If
Next i
 
Sat = 1
For i = sr.[A65536].End(3).Row To 2 Step -1
    If sr.Cells(i, "E") > 8000 Then
        Sat = Sat + 1
        sr.Range("D" & i & ":E" & i).Copy sb.Range("B" & Sat)
        sb.Range("B" & Sat & ":C" & Sat).Font.ColorIndex = 3
        sr.Rows(i).Delete
    End If
Next i
MsgBox "D&#252;zenleme Tamamlanm&#305;&#351;t&#305;r...."
End Sub

Eser Gökay · 31 Mayıs 2008

arkadaslar merhabalar

Herkesin başındaki bela olan BA-BS formlariyla ilgili oldugu icin yeni baslık açıp kirlilik yaratmak istemedim. o yuzden buraya sormayı daha uygun gördüm.

BA-BS LERİ hazırlamak için ekteki dosyayı kullanıyorum. Verilerin oldugu dosyaları açıp verileri alıyor ve dosyayı kapatıp formu tamamlıyor. Ancak Her firma ya da dönem değiştiğinde kodlara girip dosya yollarını değiştirmem gerekiyor. Bu yuzden hangi dosyayı açacagını hucreden gostermek istiyorum. yardımlarınızı istirham ederim. Selamlar

eraser · 31 Mayıs 2008

Ba Formu_yardımı (Kod Sahibi Necdet Yeşertener)

Merhaba Necdet Bey ;

En Son çalışmanızı size,foruma ilettiğim veriler doğrultusunda çok güzel düzenlemişsiniz.

Çok sağolun.
Fakat son çalışmada ufak bir problem var o da benden kaynaklanmaktadır.
Bunun için kusura bakmayın Çok zahmet verdim.

Raporlamadaki istenen bilgiyi doğru ifade ile anlatamadığımdan dolayı son ekli belgeyi size zahmet tekrar inceleyip düzenleyebilirseniz çok sevinirim.

İyi akşamlar
Kolay Gelsin

eraser · 31 Mayıs 2008

Ba Formu_yardımı (Kod Sahibi Necdet Yeşertener)

Kusura bakmayın, Projenin kodları ile oynanmasın diye şifre koymuştum.
şifresiz projeyi tekrar yüklüyorum.

Eser Gökay · 1 Haziran 2008

arkadaslar 4 nolu mesaj icin yardımlarınızı rica ederim.

eraser · 2 Haziran 2008

Ba Hazirlik-necdet YeŞertener

Necdet Hocam İyigünler;

Ba formun Limitli olanların belirlenmesi açısından sizin kodlamalarınızdan dolayı değilde size vermiş olduğumu ifade yanlışlılığımdan dolayı çalışmadaki istediğim verilere bütün halinde ulaşamıyorum.

Size bu konu ile ilgili bayağı bir zahmet verdim ama
Şu anki ekli belgede verilerin nasıl bir şekilde sayfalara nasıl döküleceği konusundaki açıklamaları fazlası ile ekledim.

Buna göre yeni ekli belgenin kodlarını yeniden düzenleyebilirmisiniz.
Şimdiden Teşekkürler.

Z.kolaylı

Necdet · 2 Haziran 2008

eraser' Alıntı:
Ba formun Limitli olanların belirlenmesi açısından
Z.kolaylı

Sayın eraser, zaten 8000 ytl lik olayı yapmamışmıydık?

Benim kafam iyice karıştı, hiç birşey anlamadım.

eraser · 2 Haziran 2008

BA HAZIRLIK_Necdet Yeşertener

Necdet Bey kusura bakmayın gerçekten kafanızı karıştırmak
haddimize değil.

İş yoğunluğu ile sizden yardım talep ederken sizleride yoruyorum.
Limitli kısım çalışmanız tamam. sizin çalışmanız size göre doğru
çalışma benim ifademin yanlışlığın dolayı son kısmı çalışmalarıma uymuyor.

İlgilenebilirseniz, bu sefer sade açıklamalı olan tabloyu ekliyorum
Şu an için olumlu yada olumsuz olsada Canınız Sağolsun.
Teşekkürler

Necdet · 3 Haziran 2008

Merhaba,

İyi geceler.

Kafam karıştı derken gerçekten karıştı.

Siz "Yünlü Ticaret" diyorsunuz oysa "Yünlü orman Ürünleri Tic.* 5450" ile "Yünlü orman Ürünleri Tic.* 5460" var.

Bunlar sizin için "Yünlü Ticaret" olabilir ama benim için iki ayrı firma. İşte o yüzden kafam karıştı hiç bir şey anlamıyorum dedim.

Sanırım siz bu iki firmayı aynı firma olarak değerlendiriyorsunuz o yüzden de ben (garanti vermiyorum) firma isminin ilk 10 karakterini alarak karşılaştırma yapmaya çalıştım.

"Yünlü orman ürünleri" diye bir firma varsa ve "Yünlü orman Pencere" diye de firma olursa ilk 10 karakter aldığımız için ayrı firmalar bile olsa kodlar bunu tek firma olarak değerlendirecektir.

Dikkatinize.

Kod:

Public Sub Aktar()
Application.ScreenUpdating = False
Set sm = Sheets("MUAVİN")
Set sr = Sheets("RAPOR")
Set sb = Sheets("BS_FORMAT")
sm.Select
sm.Range("A2:E" & sm.[E65536].End(3).Row).Sort Key1:=sm.[D2]
SonSat = sr.[E65536].End(3).Row + 1
sr.Range("A2:E" & SonSat).ClearContents
sr.Range("A2:E" & SonSat).Font.ColorIndex = 1
SonSat = sb.[C65536].End(3).Row + 1
sb.Range("A2:C" & SonSat).Font.ColorIndex = 1
sb.Range("A2:C" & SonSat).ClearContents
Sat = 1
For i = 2 To sm.[A65536].End(3).Row
    If Left(sm.Cells(i, "D"), 10) <> EskiDeger Then
        Sat = Sat + 1
               
        sr.Cells(Sat, "A") = sm.Cells(i, "A")
        sr.Cells(Sat, "B") = sm.Cells(i, "B")
        sr.Cells(Sat, "C") = sm.Cells(i, "C")
        
        sr.Cells(Sat, "D") = sm.Cells(i, "D")
        sr.Cells(Sat, "E") = sm.Cells(i, "E")
        EskiDeger = Left(sm.Cells(i, "D"), 10)
    
    Else
        sr.Cells(Sat, "E") = sr.Cells(Sat, "E") + sm.Cells(i, "E")
    End If
Next i
Sat = 1
For i = sr.[A65536].End(3).Row To 2 Step -1
    If sr.Cells(i, "E") > 8000 Then
        Sat = Sat + 1
        sr.Range("D" & i & ":E" & i).Copy sb.Range("B" & Sat)
        sb.Range("B" & Sat & ":C" & Sat).Font.ColorIndex = 3
        sr.Rows(i).Delete
    End If
Next i
MsgBox "Düzenleme Tamamlanmıştır...."
End Sub

eraser · 3 Haziran 2008

Necdet Bey çalışmalarınızın en başından en sonuna kadar olan verdiğiniz tüm emek ve yardımlarınız için yürekten teşekkürlerimi sunuyorum.
Çok güzel bir çalışma oldu bizler için.Sağolun.

Necdet · 3 Haziran 2008

Merhaba,

İşinize yararsa ne mutlu bana, dediğim gibi açıklamanın ilk 10 harfine dikkat etmelisiniz.

thelordofthenumbers · 3 Haziran 2008

necdet bey saolun

Necdet · 3 Haziran 2008

Sizde sağolun Sayın thelordofthenumbers

Eser Gökay · 11 Haziran 2008

Arkadaslar konuyla alakalı oldugu icin yeni baslık acmadan 4 nolu mesajdaki soruyu sormustum. yardımlarınızı istirham ederim.

BA FORMU HAZIRLIK (kod sahibi Necdet Yeşertener )

eraser

eraser

Necdet

Moderatör

Eser Gökay

eraser

eraser

Eser Gökay

eraser

Necdet

Moderatör

eraser

Necdet

Moderatör

eraser

Necdet

Moderatör

thelordofthenumbers

Necdet

Moderatör

Eser Gökay