• DİKKAT

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

Excel Şablon sayfası yardım

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
M

muratkul

Katılım
27 Ocak 2009
Mesajlar
243
Excel Vers. ve Dili
EXCEL2003,TÜRKÇE
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.
 

Ekli dosyalar

. . .

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

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

. . .
 
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.
 

Ekli dosyalar

. . .

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

. . .
 
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
 
. . .

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.

. . .
 

Ekli dosyalar

yarin sabah inceleyebilecegim.ilginiz icin tesekkurler.herhangi bir sorum olursa sizi yone rahatsiz edebilirmiyim.
tesekkurler
 
Hüseyin bey sizden ricam bir de makro olarak yapabilir misiniz.
 
muratkul' Alıntı:
Hüseyin bey sizden ricam bir de makro olarak yapabilir misiniz.
Genişletmek için tıkla ...
. . .

Dosyanız ektedir.


Kod: 
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

. . .
 

Ekli dosyalar

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.
 

Ekli dosyalar

. . .

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...

Kod: 
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

. . .
 
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.
 

Ekli dosyalar

. . .

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.

. . .
 
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.
 

Ekli dosyalar

. . .

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...

. . .
 

Ekli dosyalar

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.
 

Ekli dosyalar

. . .

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

. . .
 
. . .

Kod: 
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

. . .
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst