Eğer Komutu Tarihi Dikkate Almıyor.

[Ömer]

Dosyanız ektedir. Kodlar VBA bölümündeki ThisWorkbook(Buçalışmakitabı) sayfasında mevcuttur.

Aktiv olan sayfaya göre kod çalışır.

.

 

[Conqueror20]

çok teşekkür ederim ömer bey elinize sağlık

 

[Conqueror20]

Ömer Bey,
Sayfa ismi yada hücre ismi değiştirmek istediğimde rapor sayfalarında hata veriyor. Sayfa ve hücre isimlerini nereden değiştirebilirim. VBA da baktım ama kodlar arasında sayfa isimlerinin geçtiği bir yer göremedim

 

[Conqueror20]

Ömer Bey,
Öncelikle yardımlarınız için çok teşekkür ederim. Çalışma çok iyi olmuş.
Sormak istediğim bir soru var. Örneğin GENEL_GİRİŞ sayfasında B6 hücresine otomatik gelen değerin altına yeni satır ekleyip dolar veya euro karşılığını almak için sütun formül yazıyorum. Fomül çalışıyor fakat farklı bir sayfaya geçtiğim zaman formülü otomatikmen siliyor. Bunu nasıl yapabilirim.

 

[Ömer]

Merhaba,

Keşke dosyanızı hazırlarken tüm ihtimalleri gözden geçirip ona göre hazırlasaydınız. Yapmak istediğiniz yazılan kodların mantığına uygun değil maalesef. Bunun için yapıyı tamamen değiştirmek gerekir. Benim de bunun için zamanım yok maalesef. Dilerseniz sorunuzu yeni bir başlık altında yeniden açarak sorunuz.

İyi çalışmalar.

 

[Conqueror20]

Ömer Bey,
dosyayı tekrar ekledim müsait olduğunuzda bakabilir misiniz?
GİRİŞ ve ÇIKIŞ sayfalarına girilen değerler GENEL_GİRİŞ, GENEL_ÇIKIŞ ve 01_GİRİŞ,01_ÇIKIŞ... sayfalarına yazmış olduğunuz formül ile TL olarak aktarılıyor. Şimdi yapmak istediğim TL olarak aktarılan her değerin altına usd karşılığını yazdırmak. Döviz kurunu DÖVİZ_KURU sayfasından alacak. Formül yazsamda otomatik siliniyor. Yardımcı olabilir misiniz?

 

[Ömer]

Kodları aşağıdakilerle değiştirerek deneyin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
    Dim ad As String, syf As Worksheet, i As Long, j As Integer, k As Integer, bul As Long
    Dim c As Range, Adr As String, sut As Integer, sat As Long, Sd As Worksheet, doviz
    
    Set Sd = Sheets("DÖVİZ_KURU")
    ad = ActiveSheet.Name
    
    Application.ScreenUpdating = False
    
    If IsNumeric(Left(ad, 1)) = True Then
        sut = Cells(6, Columns.Count).End(xlToLeft).Column - 1
        sat = Cells(Rows.Count, "A").End(xlUp).Row - 1
        Set syf = Sheets("" & Split(ad, "_")(1) & "")
        Range(Cells(7, 2), Cells(sat, sut)).ClearContents
        For i = 7 To sat Step 2
            With syf.Range("B:B")
                Set c = .Find(Cells(i, "A"), , xlValues, xlWhole)
                If Not c Is Nothing Then
                    Adr = c.Address
                    Do
                        For j = 2 To sut
                            If syf.Cells(c.Row, "C") = Cells(6, j) And _
                                Format(syf.Cells(c.Row, "A"), "mmmm") = Format(Range("B2"), "mmmm") Then
                                Cells(i, j) = Cells(i, j) + syf.Cells(c.Row, "E")
                                Cells(i, j).NumberFormat = "#,##0.00 TL"
                                bul = WorksheetFunction.Match(Format(Range("B2"), "mmmm"), Sd.[A:A], 0)
                                If Sd.Cells(bul, "B") = "" Then
                                    doviz = 1
                                Else
                                    doviz = Sd.Cells(bul, "B")
                                End If
                                Cells(i + 1, j) = Cells(i + 1, j) + (syf.Cells(c.Row, "E") / doviz)
                                Cells(i + 1, j).NumberFormat = "[$$-409]#,##0.00"
                            End If
                        Next j
                        Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            End With
        Next i
    Else
        If Split(ad, "_")(0) <> "GENEL" Then Exit Sub
        sut = Cells(3, Columns.Count).End(xlToLeft).Column - 5
        sat = Cells(Rows.Count, "A").End(xlUp).Row - 1
        Set syf = Sheets("" & Split(ad, "_")(1) & "")
        Range(Cells(4, 2), Cells(sat, sut)).ClearContents
        For i = 4 To sat Step 2
            With syf.Range("C:C")
                Set c = .Find(Cells(i, "A"), , xlValues, xlWhole)
                If Not c Is Nothing Then
                    Adr = c.Address
                    Do
                        k = 2
                        For j = 2 To sut
                            If j <> 2 And (j - 2) Mod 3 = 0 Then k = k + 3
                            If syf.Cells(c.Row, "B") = Cells(3, j) Then
                                If Format(syf.Cells(c.Row, "A"), "mmmm") = Cells(2, k) Then
                                    Cells(i, j) = Cells(i, j) + syf.Cells(c.Row, "E")
                                    Cells(i, j).NumberFormat = "#,##0.00 TL"
                                    bul = WorksheetFunction.Match(Format(Range("B2"), "mmmm"), Sd.[A:A], 0)
                                    If Sd.Cells(bul, "B") = "" Then
                                        doviz = 1
                                    Else
                                        doviz = Sd.Cells(bul, "B")
                                    End If
                                    Cells(i + 1, j) = Cells(i + 1, j) + (syf.Cells(c.Row, "E") / doviz)
                                    Cells(i + 1, j).NumberFormat = "[$$-409]#,##0.00"
                                End If
                            End If
                        Next j
                        Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            End With
        Next i
    End If
    
    Set c = Nothing
    
End Sub

.

 

[Conqueror20]

çok teşekkürler ömer bey.
Yardımınız için minnettarım

 

[Conqueror20]

Sayın Ömer,
GENEL_GİRİŞ, GENEL_ÇIKIŞ ve diğer aylara göre GİRİŞ ve ÇIKIŞ sayfalarına birer tane daha ürün eklemek istiyorum. Kodlamada hangi kısmı değiştirmem lazım. Yardımcı olabilir misiniz?

 

[Ömer]

Doğru anladıysam değişikliğe gerek yok. Ekleyin ve kodları çalıştırıp sonuçları gözlemleyin.

 

[Conqueror20]

Sayın Ömer,
Her ay için ayrı ayrı giriş ve çıkış sayfası oluşturmuştum fakat bunu her ay için değilde tek ir sayfa yapıp, yıl ve ay seçin diye sekme ekledikten sonra seçilen aya göre verileri çektirmek daha mantıklı olacak lakin takıldığım bir nokta var. Farklı bir sayfaya geçmeden rapor sayfası kendisini yenilemiyor. Yıl ve ayı seçtirdikten sonra " Verileri Aktar" diye buton eklesek verileri çağırtır mı?

 

[Ömer]

Dosyanızı ekleyerek açıklayınız.

 

[Conqueror20]

Sayın Ömer,
Her ay için ayrı ayrı giriş ve çıkış sayfası oluşturmuştum fakat bunu her ay için değilde tek ir sayfa yapıp, yıl ve ay seçin diye sekme ekledikten sonra seçilen aya göre verileri çektirmek daha mantıklı olacak lakin takıldığım bir nokta var. Farklı bir sayfaya geçmeden rapor sayfası kendisini yenilemiyor. Yıl ve ayı seçtirdikten sonra " Verileri Aktar" diye buton eklesek verileri çağırtır mı? Birde ÖZET sayfasında aylara göre giriş ve çıkışların toplamını yazdırıp farkını aldırabilir miyiz?

 

[Ömer]

Sayfa isimleri bu şekilde mi olacak.

01_GİRİŞ gibi. Eğer bu şekilde olmıyacaksa tablonuzu gerçeğe yakın şekilde eklerseniz sürekli yeni kod düzenlemeye gerek kalmaz.

 

[Conqueror20]

GİRİŞ isimli farklı bir sayfa olduğu için 01_GİRİŞ olarak bıraktım. GİRİŞ_RAPOR ve ÇIKIŞ_RAPOR olabilir

 

[Conqueror20]

Sayın Ömer,
Müsait olduğunuzda yardımcı olabilir misiniz?

 

[Ömer]

Dosyanız ektedir.

.

 

[Conqueror20]

yardımınız için çok teşekkürler Ömer Bey. Allah razı olsun

 

[gorkemakin]

Ömer hocam,
benimde aradığım tam sizin yapmış olduğunuz çalışma gibiydi.stok takibi için çalışma arıyodum bu gayet uygun. yalnız conqueror20'nin örneğinden farklı olarak; giriş_rapor ve çıkış_rapor sayfasında ürün isimlerini yan yana değil alt alta yazdırmak istiyorum. yani şehir isimleri alt alta değil yan yana, ürün isimleri ise alt alta olacak. Genel_giriş ve genel_çıkış raporlarında tam belirttiğim gibi olmuş ama ordaki kodları kopyalayınca olmadı maalesef. Nasıl yapabilirim tarif edebilir misiniz.

 

[gorkemakin]

ömer hocam rica etsem bir yardımcı olabilirmisin. kodları falan değiştirerek denedim ama beceremedim. sana zahmet yardımcı olurmusun