yatay verileri dikeyde toplamak

[parle75]

Merhabalar yatayda bulunan verileri sıralama konusunda bir sorum olucak. A1 B1 C1D1 de bulunan verileri. a1 de ki değeri alıp sonra yanına b1 i koyacak sonra eger c1 de değer varsa
altına d1 i kopyalayacak ve sonra aynı işlemi bir satır inerek A2 olarak devam edicek. bu sekilde hazırlanmıs bri seyiniz varmıdır.

 

[Levent Menteşoğlu]

Sorunuzu bir örnek dosyada açıklarmısınız?

 

[parle75]

örnek dosya

ilginize simdiden tsk ederim. ekte ne istediği excel tablosuna yazdım.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[parle75]

tesekkür.

Merhabalar İlgine cok tsk ederim. Size bir sorum olucak bu işimi gördü. Eger adres hanesinin yanına bir veri daha girersek o zaman makroda ne deişiklik yapmamız gerekir onuda anlatabilirmisin ?

 

[danersin]

For b = 2 To s1.Cells(a, 256).End(xlToLeft).Column Step 3

Yukarıdaki satırda step 2 idi. Yani iki atlayarak dolaşıyordu sütunlar arasında, siz bir sütun daha eklediğinize göre 3 olacakki 3 atlayarak bir sonraki vergi no sütununa geçsin.

Cells(c + 2, 4) = s1.Cells(a, b + 1).Value
Cells(c + 2, 5) = s1.Cells(a, b + 2).Value

Yukarıdaki satırlar da da sayfa1 den sayfa2 ye aktarım yapılıyor. alttaki satırı kodunuza eklerseniz istediğiniz olur.

Aynı mantıkla, yani stepi bir arttır, bu bloğada bir satır daha ekle şeklinde istediğiniz kadar arttırın.

 

[parle75]

Bunu tabloya uygulaman mumkunmu sana zahmet olmassa.

 

[danersin]

Bu şekilde bir deneyin.

[vb:1:cecd9c5df3]Sub listele()
[a2:d65536].ClearContents
Set s1 = Sheets("sheet1")
For a = 3 To s1.Cells(65536, 1).End(xlUp).Row
Cells(sat + 2, 1) = s1.Cells(a, 1).Value
For b = 2 To s1.Cells(a, 256).End(xlToLeft).Column Step 3
Cells(c + 2, 2) = d + 1
Cells(c + 2, 3) = s1.Cells(a, b).Value
Cells(c + 2, 4) = s1.Cells(a, b + 1).Value
Cells(c + 2, 5) = s1.Cells(a, b + 2).Value
c = c + 1
d = d + 1
Next
d = 0
sat = Cells(65536, 2).End(xlUp).Row - 1
Next
End Sub[/vb:1:cecd9c5df3]

 

[abazya]

Bunu tabloya uygulaman mumkunmu sana zahmet olmassa.

Bu şekildemi istedin

 

[parle75]

burda 1 ci sheette adres bölümüne bir satır ekleyip oraya plaka no girmek istiyorum ve ikinci bölümde makroya bastıgımda plaka nolarda gelsin.

 

[danersin]

1. sheette her adres sütunundan sonra bir sütun açıp. Açtığınız sütunlarda plaka noları girerseniz. Yukarıdaki dosya istediğinizi yapacaktır.

adres bölümüne bir satır ekleyip

Burda kastettiğinizi sütun açmak diye anlıyorum.

 

[Levent Menteşoğlu]

Adresten sonra bir sütun eklerseniz, yani VERGİ NO-ADRES-PLAKA NO şeklinde sıralarsanız, Sn danersin'in verdiği kod istediğinizi gerçekleştirecektir.

 

[abazya]

Acele ettim oldumu bakarmısınız

 

[parle75]

arkadaslar bunu yaptım fakat olmadı

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[parle75]

Supersin LEVENT

 

[abazya]

benden önce gelmiş pardon