sipariş listesinden, makroyla özet sayfası oluşturmak

[besen]

Ekteki dosyadaki sipariş sayfasındaki bilgileri, icmal sayfasındaki haline çevirmek istiyorum.

Teşekkür ederim.

 

[Muhammet Okumuş]

Sub Düğme1_Tıklat()
x = Cells(Rows.Count, 1).End(3).Row
For i = x To 2 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete
Next
Set i = Sheets("İcmal")
x = Cells(Rows.Count, 1).End(3).Row
i.Range("A3:A" & x + 1) = Range("A2:A" & x).Value
i.Range("B3:B" & x + 1) = Range("F2:F" & x).Value
....
....

End Sub

şeklinde düzenleyiniz.

 

[besen]

Çok teşekkür ederim ama tam olarak anlayamadım.

 

[Muhammet Okumuş]

i.Range("A3:A" & x + 1) = Range("A2:A" & x).Value
i.Range("B3:B" & x + 1) = Range("F2:F" & x).Value

icmal sayfasının C sütununa Sipariş sayfasının B sütunu gelecek. Budurumda kod

i.Range("C3:C" & x + 1) = Range("B2:B" & x).Value

şeklinde devam etmeli.

 

[besen]

Tekrar teşekkür ederim.
İki ayrı sorun var.
Birincisi makroyu modüle yazdığımda, sipariş sayfasını da düzenliyor.
İkincisi sipariş koduyla aynı satırda olmayan ürünler de var, onlar nasıl gelecek.

 

[Muhammet Okumuş]

Anladım. O zaman arama kodlarını kullanmak gerekecek.

 

[Muhammet Okumuş]

Sub Düğme1_Tıklat()
son = Cells(Rows.Count, 1).End(3).Row
Set s = Sheets("icmal")
k = "Kargo Ücreti"
st = "Set 1"
sp = "Sponsorluk"
m2 = "MYAN-02"
m1 = "MYAN-01"
For i = 2 To son
If Cells(i, 1) = "" Then GoTo 10
a = s.Cells(Rows.Count, 1).End(3).Row + 1
s.Cells(a, 1) = Cells(i, 1).Value
s.Cells(a, 2) = Cells(i, 6).Value
10
If Cells(i, "U") = k Then s.Range("K" & a & ":L" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = st Then s.Range("M" & a & ":N" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = sp Then s.Range("O" & a & "" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = m2 Then s.Range("Q" & a & ":R" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = m1 Then s.Range("S" & a & ":T" & a) = Range("X" & i & ":Y" & i).Value


Next
End Sub

Kodları deneyiniz.

 

[Muhammet Okumuş]

Sub Düğme1_Tıklat()
son = Cells(Rows.Count, 1).End(3).Row
Set s = Sheets("icmal")
s.Range("A3:V10000").Clear
k = "Kargo Ücreti"
st = "Set1"
sp = "Sponsorluk"
m2 = "MYAN-02"
m1 = "MYAN-01"
For i = 2 To son
If Cells(i, 1) = "" Then GoTo 10
a = s.Cells(Rows.Count, 1).End(3).Row + 1
s.Cells(a, 1) = Cells(i, 1).Value
s.Cells(a, 2) = Cells(i, 6).Value
s.Cells(a, 3) = Cells(i, 2).Value
s.Cells(a, 4) = Cells(i, 3).Value
s.Cells(a, 5) = Cells(i, 4).Value
s.Cells(a, 6) = Cells(i, 5).Value
s.Cells(a, 7) = Cells(i, 13).Value
s.Cells(a, 8) = Cells(i, 14).Value
s.Cells(a, 9) = Cells(i, 15).Value
10
If Cells(i, "U") = k Then s.Range("K" & a & ":L" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = st Then s.Range("M" & a & ":N" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = sp Then s.Range("O" & a & "" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = m2 Then s.Range("Q" & a & ":R" & a) = Range("X" & i & ":Y" & i).Value
If Cells(i, "U") = m1 Then s.Range("S" & a & ":T" & a) = Range("X" & i & ":Y" & i).Value


Next
a = s.Cells(Rows.Count, 1).End(3).Row
s.Range("V3:V" & a) = "=K3*L3+M3*N3+O3*P3+Q3*R3+S3*T3"
s.Range("V3:V" & a) = s.Range("V3:V" & a).Value

End Sub

Bu kodları deneyiniz.

 

[besen]

Harikasınız, çok teşekkür ederim.
İcmal Sayfasında ilk satırın toplamı boş 0 geliyor.
Ayrıca İcmal sayfasını 3'üncü satırda başlatmak istersem, makroyu nasıl değiştirmem gerekiyor.

 

[Muhammet Okumuş]

icmal A2 hücresine ' veya her hangi bir karakter koyabilirsiniz. En son gönderdiğim kodları kullanınız.

 

[besen]

İcmal sayfası V2 hücresine bilgi gelmiyor. 198 TL olmalı.
Sipariş sayfasındaki AA kolonundaki bilgilerin de icmal sayfasına gelmesini istersem, makroya nasıl ilave yapmam gerekir.

Teşekkür ederim.