Excel listeleme

[Mehmet Sait]

Merhaba arkadaşlar excel ortamında hazırlanmış bir tabloma ek olarak alt kısmında sadece sıfırdan büyük hareket görmüş kişileri listelemek istiyorum bana yardımcı olurmusunuz ?

örnek

A B
ahmet 5
mehmet 4
murat 0
mustafa 0
ali 0
cemal 1
selim 2

tablo yukarıdaki şekilde aşğıya şu şekilde listelenebilir mi


A B
ahmet 5
mehmet 4
cemal 1
selim 2

şeklinde

Yardımlarınız için teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

Örnek bir dosya ekleyin. Üzerinde çalışalım.

. . .

 

[Metin Karaağaç]

Tablonuzun kaç satırdan oluşcağını ve alta sıralama yaparken hangi satırdan başlamak istediğinizi belirtmeniz gerekir.
Ayrıca bu satır sayıları sabit mi kalacak yoksa ekleme ve çıkarma yapılacak mı, bunları da detaylı bir şekilde açıklayınız.

 

[Mehmet Sait]

Ara satıra eklenti yapılmayaca sadece alt kısma eklenti olacak.

 

[Mehmet Sait]

İlk hareket görmüş satırdan başlarsada olur

 

[Mehmet Sait]

Tablonuzun kaç satırdan oluşcağını ve alta sıralama yaparken hangi satırdan başlamak istediğinizi belirtmeniz gerekir.
Ayrıca bu satır sayıları sabit mi kalacak yoksa ekleme ve çıkarma yapılacak mı, bunları da detaylı bir şekilde açıklayınız.

Tablo şu an 55 müşteriden oluşuyor araya ekleme olmayacak çıkarma belki olur ama en sona ekleme olabilir listeleme yaparken hareket görmüş il satırdan başlarsa olur.

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Application.ScreenUpdating = False

bir = [ah65536].End(3).Row - 1
iki = [b65536].End(3).Row + 2

For i = 4 To bir
If Cells(i, 34) > 0 Then
Cells(iki, 3) = Cells(i, 3)
Cells(iki, 4) = Cells(i, 34)

iki = iki + 1
Else
End If
Next i

Application.ScreenUpdating = True
MsgBox "B i t t i "
End Sub

. . .

 

[Mehmet Sait]

. . .

Sub kod_bir()
Application.ScreenUpdating = False

bir = [ah65536].End(3).Row - 1
iki = [b65536].End(3).Row + 2

For i = 4 To bir
If Cells(i, 34) > 0 Then
Cells(iki, 3) = Cells(i, 3)
Cells(iki, 4) = Cells(i, 34)

iki = iki + 1
Else
End If
Next i

Application.ScreenUpdating = True
MsgBox "B i t t i "
End Sub

. . .

Hocam Öncelikle zahmet edip uğraş verdiğiniz kod için teşekkür ederim ancak ben bunu yapamadım kod kısmına yapıştırdım ama çalıştıramadım

 

[Mehmet Sait]

Hocam çalıştırdım ama kod sayfasında çalıştırabildim ama çalıştırmak için tablonun altına buton eklemek istiyorum

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Forumda "yeni buton ekleme" , "yeni modül ekleme" ve "butonlara makro atama" konularını aratınız.

Sayfada Buton-Düğme Oluşturmak Ve Makro Atamak (Resimli Anlatım)

Modül Ekleme (Resimli Anlatım)


. . .

 

[Mehmet Sait]

Sub kod_bir()
Application.ScreenUpdating = False

bir = [ah65536].End(3).Row - 1
iki = [b65536].End(3).Row + 2

For i = 4 To bir
If Cells(i, 34) > 0 Then
Cells(iki, 3) = Cells(i, 3)
Cells(iki, 4) = Cells(i, 34)

iki = iki + 1
Else
End If
Next i

Application.ScreenUpdating = True
MsgBox "B i t t i "
End Sub

Hocam

AH Sutunundan sonraki sutunu hesaplatmak istediğimde
bir = [ah65536].End(3).Row - 1 kodu
bir = [ai65536].End(3).Row - 1 olarak değiştiriyorum ama çalışmıyor değiştirme sebebim bazı aylar 30 bazıları 31 olduğundan bir sutun eksik veya fazlalaşıyor bunun için ne yapmam gerek ?

 

[Mehmet Sait]

Hocam

If Cells(i, 34) > 0 Then
Cells(iki, 3) = Cells(i, 3)
Cells(iki, 4) = Cells(i, 34)

olan kodu

If Cells(i, 35) > 0 Then
Cells(iki, 3) = Cells(i, 3)
Cells(iki, 4) = Cells(i, 35)

şu şekilde değiştirdim oldu. Teşekkür ederim

 

[Mehmet Sait]

huseyincoban hocam,

Öncelikle verdiğiniz kod için tekrar teşekkür ederim sağolun. Düğme ve makro atamasını yaptım ancak kodun altına otomotik hesaplama kodunu nasıl verebilirim ?

Örnek dosya Ekte.

Yardımlarınız için teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Sub listeleme()
Application.ScreenUpdating = False
''''''''''''''''''
onbir = [b65536].End(3).Row + 1
oniki = [d65536].End(3).Row + 1
Range("c" & onbir & ":d" & oniki).ClearContents
onbir = 0
oniki = 0
''''''''''''''''''
bir = [ah65536].End(3).Row - 1
iki = [b65536].End(3).Row + 4
bes = [b65536].End(3).Row + 4

For i = 4 To bir
If Cells(i, 34) > 0 Then
Cells(iki, 3) = Cells(i, 3)
Cells(iki, 4) = Cells(i, 34)

iki = iki + 1
Else
End If
Next i

UC = [c65536].End(3).Row + 2
dort = WorksheetFunction.Sum(Range("d" & bes & ":d" & UC - 2))
Range("c" & UC) = "Toplam:"
Range("d" & UC) = dort

Application.ScreenUpdating = True
MsgBox " Listeleme Bitti "
End Sub

. . .

 

[Mehmet Sait]

huseyincoban hocam,

Sizden bir ricam daha olacak kusura bakmazsanız. Makroyu her çalıştırdığımda önceki listeleme verisini silip tekrar listelemesini nasıl yaparım.

 

[Emir Hüseyin Çoban]

. . .

Üst iletideki kodları revize ettim, deneyiniz.

. . .

 

[Mehmet Sait]

Teşekkür ederim hocam oldu. Sağolun.

 

[Mehmet Sait]

Merhaba Hocam,

Ekteki tabloda ilk sayfada icmal var. Diğer sayfalarda araya satır eklediğimde yada satır çıkardığımda icmal sayfasında aynı sıraya eklediğim yada çıkardığım satırı otomotik nasıl yansıtabilirim ?

Yardımlarınız için teşekkürler

 

[Emir Hüseyin Çoban]

Merhaba Hocam,

Ekteki tabloda ilk sayfada icmal var. Diğer sayfalarda araya satır eklediğimde yada satır çıkardığımda icmal sayfasında aynı sıraya eklediğim yada çıkardığım satırı otomotik nasıl yansıtabilirim ?

Yardımlarınız için teşekkürler

. . .

Merhaba.
Bu sorunuz daha önce işlenen soru ile farklı özelliklere sahip.
Forum kullanım özellikleri ve kuralarına uygun değil.
Hem sizin daha hızlı cevap almanız için, hemde daha sonra bu sorudan yararlanacak olanlar için. Yeni sorunuzu, yeni bir başlık açarak sorunuz.

. . .