Excel Şablon sayfası yardım

[muratkul]

Merhaba
Ben sizden bir konuda yardım isteyecektim. Ekte bir excel dosyam var. Burada ürünler sayfasında birden fazla irsaliye numarası ve ürünler, fiyatlar kg mevcut.burada bulunan irsaliye numarasından istediğim herhangi birini exzel şablonu dedğim sayfanın belirlediğim bir yerine yazdığımda mesela 503112 dediğimde 503112 isrsaliyedeki ürünlerin hepsini buraya aktarmasını istiyorum. hangi irsaliye numarasını yazıyorsam sadece o irsaliyeye ait ürünlerin ve miktarların gelmesini istiyorum.
İlginiz için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

* Ürünler sayfasında ortalama kaç satır veriniz olur.

* Makro veya formüller ile yapılabilir. Hangisini tercih ediyorsunuz.

. . .

 

[muratkul]

Makroyu tam bilmiyorum. makro değilde formül olursa daha iyi olur. Ayrıca yeni göndermiş olduğum dosyaya göre uyarlayabilir misiniz.
Not: ürün adları gizlilik açısından silinmiştir. Anlayışınız için teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Sheet3 deki verileri başka programdan mı alıyorsunuz. Öyle ise sayfaya kopyala yapıştır ilemi aktarıyorsunuz.

. . .

 

[muratkul]

ticari programdan excel olarak aliyorum buraya kopyala yapistir yapiyorum.ama siz buna gore auarlayabilirseniz ben kopyala yapistir yapmadin orginal dosyada gerekli duzeltmeleri yapip buraya yapistiririm

 

[Emir Hüseyin Çoban]

. . .

A sütunlarındaki formülleri ihtiyacınıza göre aşağıya doğru çoğaltın. (veri satır sayısına göre)

Sayfa3 de yapıştırma işlemini B1 hücresine yapın.

. . .

 

[muratkul]

yarin sabah inceleyebilecegim.ilginiz icin tesekkurler.herhangi bir sorum olursa sizi yone rahatsiz edebilirmiyim.
tesekkurler

 

[muratkul]

Hüseyin bey sizden ricam bir de makro olarak yapabilir misiniz.

 

[Emir Hüseyin Çoban]

Hüseyin bey sizden ricam bir de makro olarak yapabilir misiniz.

. . .

Dosyanız ektedir.

Sub kod()
    
    With Application
        .ScreenUpdating = False: .Calculation = xlCalculationManual: .EnableEvents = False
    End With
    
    Dim SD As Worksheet: Set SD = Sheets("Sheet3")
    Dim SO As Worksheet: Set SO = Sheets("Sheet1")
    Dim liste(), dizi()
    
    ara = SO.Range("J3")
    son = SD.Cells(Rows.Count, "I").End(3).Row
    liste = SD.Range("I2:O" & son).Value
    
    ReDim dizi(1 To son, 1 To 7)
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If aranan = ara Then
            n = n + 1
            ReDim Preserve dizi(1 To son, 1 To 7)
            dizi(n, 1) = liste(x, 2)
            dizi(n, 2) = liste(x, 3)
            dizi(n, 3) = liste(x, 4)
            dizi(n, 4) = liste(x, 5)
            dizi(n, 5) = liste(x, 6)
            dizi(n, 6) = liste(x, 7)
        End If
    Next x
    
    SO.Range("A2:F" & Rows.Count).ClearContents
    SO.Range("A2").Resize(son, 7) = dizi
    SO.Cells.EntireColumn.AutoFit
    
    With Application
        .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: .EnableEvents = True
    End With
    MsgBox " B i t t i "
    
End Sub

. . .

 

[muratkul]

Hüseyin bey,
Size çok teşekkür ederim. Gerçekten tam istediğim gibi olmuş. Yalnız sizden son bir isteğim gönderdiğim dosyaya göre son bir kez daha yardımcı olmanızı rica ediyorum.

 

[Emir Hüseyin Çoban]

. . .

Aranan fatura numarasını gireceğiniz hücreyi değiştirmek için kırmızı ile belirttiğim yeri değiştirebilirsiniz.
Değişiklik yaptığım kısımlarıda belirginleştirdim...

Sub kod()
    
    With Application
        .ScreenUpdating = False: .Calculation = xlCalculationManual: .EnableEvents = False
    End With
    
    Dim SD As Worksheet: Set SD = Sheets("Sheet3")
    Dim SO As Worksheet: Set SO = Sheets("Sheet1")
    Dim liste(), dizi()
    
    ara = SO.Range("[COLOR="Red"][B]J3[/B][/COLOR]")
[COLOR="Indigo"]    son = SD.Cells(Rows.Count, "D").End(3).Row
    liste = SD.Range("D2:J" & son).Value[/COLOR]
    
    ReDim dizi(1 To son, 1 To 7)
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If aranan = ara Then
            n = n + 1
            ReDim Preserve dizi(1 To son, 1 To 7)
            dizi(n, 1) = liste(x, 2)
            dizi(n, 2) = liste(x, 3)
            dizi(n, 3) = liste(x, 4)
            dizi(n, 4) = liste(x, 5)
            dizi(n, 5) = liste(x, 6)
            dizi(n, 6) = liste(x, 7)
        End If
    Next x
    
    SO.Range("A2:F" & Rows.Count).ClearContents
    SO.Range("A2").Resize(son, 7) = dizi
    SO.Cells.EntireColumn.AutoFit
    
    With Application
        .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: .EnableEvents = True
    End With
    MsgBox " B i t t i "
    
End Sub

. . .

 

[muratkul]

Abi bunları ben tam nereye yapacağımı bilmiyorum.size zahmet gönderdiğim dosyaya göre ayarlayabilir misin.
Birde brüt fiyat toplam iskontu tutarı ve net fiyat olan ürünün iskonto oranını nasıl buluruz.

 

[Emir Hüseyin Çoban]

. . .

Makrolara giriş için sitedeki eğitimleri ve diğer kanallardaki çalışmaları inceleyebilirsiniz.
http://www.excel.web.tr/f182/

Hesaplama için örnek bir fatura numarasının sonuçlarını gösteriniz.

. . .

 

[muratkul]

ekteki dosyama siz son kez makrolu çalışır şekliyle bir düzenleme yapabilir misiniz. Rica etsem.

brüt tutar:15,00 tl
iskonto tutarı 2,25 tl
net tutar:12,75 tl olduğuna göre iskonto oranı kaçtır. Normalde %15 ama bunu formulle nasıl yapacağım abi.
Hüseyin bey ilginiz için çok teşekkür ederim.
Allah sizlerden razı olsun.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

İskonto oranı sıfır olanların 0% şeklinde görünmemesi için koşullu biçimlendirme yaptım. İsterseniz koşullu biçimlendirmeyi silebilirsiniz...

. . .

 

[muratkul]

çok teşekkür ederim Hüseyin bey.

 

[muratkul]

Hüseyin Bey,
Kusura bakmayın sizi yine rahatsız ediyorum. göndermiş olduğum dosyaya göre uyarlayabilir misiniz.
ilginiz için teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Bu tabloda Promosyon Tutarı mı gelecek, iskonto oranı mı.

. . .

 

[muratkul]

promosyon tutar yazan sarı renkli yer abi.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    With Application
        .ScreenUpdating = False: .Calculation = xlCalculationManual: .EnableEvents = False
    End With
    
    Dim SD As Worksheet: Set SD = Sheets("Sheet3")
    Dim SO As Worksheet: Set SO = Sheets("Sheet1")
    Dim liste(), dizi()
    
    ara = SO.Range("J3")
    son = SD.Cells(Rows.Count, "I").End(3).Row
    liste = SD.Range("I2:AD" & son).Value
    
    ReDim dizi(1 To son, 1 To 22)
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If aranan = ara Then
            n = n + 1
            ReDim Preserve dizi(1 To son, 1 To 22)
            dizi(n, 1) = liste(x, 5)
            dizi(n, 2) = liste(x, 6)
            dizi(n, 3) = liste(x, 8)
            dizi(n, 4) = liste(x, 9)
            dizi(n, 5) = liste(x, 18)
            dizi(n, 6) = liste(x, 22)
        End If
    Next x
    
    SO.Range("A2:F" & Rows.Count).ClearContents
    SO.Range("A2").Resize(son, 6) = dizi
    SO.Cells.EntireColumn.AutoFit
    
    With Application
        .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: .EnableEvents = True
    End With
    MsgBox " B i t t i "
    
End Sub

. . .