veri olmayan satırı tablonun en altına kaydırma

[demirdemir88]

Arkadaşlar Merhaba;


25 satırlık bir tabloda Belirli bir hücrede veri olmadığı zaman o hücreyi ya da satırı çalıştığım tablonun en sonuna taşıyacak bir kod ya da makro var mıdır ?

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Ömer]

Merhaba,

Veri alanını belirtiniz. A2:K10 gibi. Ayrıca belirlenen aralıkta sadece tek bir sütuna mı bakılacak. Yoksa ilgili satırdaki tüm sütunların boş olması mı gerekiyor.

.

 

[demirdemir88]

Merhaba;

Veri alanı A11:Q35 olarak seçili ve sadece E stunundaki veri boş olduğunda aynı satırdaki diğer hücreleri son satıra kaydırmasını istiyorum.

Yardımınız için teşekkür ederim.

 

[Ömer]

Bu şekilde deneyin.

Sub Duzenle()
    
    Dim i As Long
    
    Application.ScreenUpdating = False

    For i = Cells(35, "E").End(xlUp).Row To 11 Step -1
        If Cells(i, "E") = "" Then
            Cells(i, "A").Resize(1, 17).Cut
            Range("A36").Insert Shift:=xlDown
        End If
    Next i
    
    With Application
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
    
End Sub

.

 

[demirdemir88]

Ömer Bey Merhaba;

belirttiğiniz kodu aşağıdaki şekilde uyguladım fakat çalışmadı. Bi kontrol edip nerede hata yaptığımı söyleyebilir misiniz.

iyi çalışmalar.

Sub Makro1()
'
' Makro1 Makro
'

'
Dim i As Long

Application.ScreenUpdating = False

For i = Cells(35, "E").End(xlUp).Row To 11 Step -1
If Cells(i, "E") = "" Then
Cells(i, "A").Resize(1, 17).Cut
Range("A36").Insert Shift:=xlDown
End If
Next i

With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
Application.Goto Reference:="Makro1"
End Sub

 

[Ömer]

Kodları uyguladığınız küçük bir örnek dosya ekler misiniz.

 

[demirdemir88]

Ömer bey merhaba;
ekli linkte dosya bulunuyor. Dosyada farklı bir makro var. Sizin yazdığınız Makroyu uygulamadan yükledim
Normal Kursyr isth. sayfasında aradaki boş satırları(4 ve 6. sıra) E stunu boş olduğu taktirde en alta taşımasını istiyorum. Mümkünse sıra no değişmeden sadece B-C-D-E-F-G stunlarindaki hücreleri taşırsa çok iyi olur.

Tekrar teşekkür ederim.

http://www.dosya.tc/server/d4pab1/IEP1.rar.html

 

[demirdemir88]

Ömer bey tekrar tekrar yazıyorum kusura bakmayın

Asıl istediğim belirttiğim sıra numarası değişmeden boş hücrelerin gizlenmesi ya da sadece dolu hücrelerin görünmesi (ya da boş hücrenin yerine dolu hücrelerin kaydırılması)

Eğer yardımcı olabilirseniz çok memnun olurum.

Teşekkürler.İyi çalışmalar

 

[Ömer]

"NORMAL KURSİYER İSTH" sayfası kod bölümüne kopyalayın. Sayfa aktif olduğunda kodlar çalışır ve istediğinizi yapar.

Private Sub Worksheet_Activate()

    Dim i As Byte, sat As Byte
    
    Cells.EntireRow.Hidden = False
    
    Application.ScreenUpdating = False
    
    sat = 1
    For i = 11 To 35
        If Cells(i, "E") = 0 Then
            Rows(i).EntireRow.Hidden = True
        Else
            Cells(i, "A") = sat & "."
            sat = sat + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

Eğer buton ile çalıştıracaksanız, ekstra olarak aşağıdaki kodları module koyup butona bağlayabilirsiniz.

Sub Duzenle()

    Dim i As Byte, sat As Byte
    
    Cells.EntireRow.Hidden = False
    
    Application.ScreenUpdating = False
    
    sat = 1
    For i = 11 To 35
        If Cells(i, "E") = 0 Then
            Rows(i).EntireRow.Hidden = True
        Else
            Cells(i, "A") = sat & "."
            sat = sat + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[demirdemir88]

Ömer Bey Ellerinize sağlık gayet güzel çalışıyor.

Son bir sorum olacak boş olan satırları gizliyor fakat A stunundaki sıra numaralarını değiştirmeden bu işlem yapılabilir mi sıralama her değişiklikte satır sayısı kadar olsa
örnek 5 dolu satır var sıralama 1-2-3-4-5 / 7 dolu satır var sıralama 1-2-3-4-5-6-7 şeklinde olabilir mi.

Olursa süper olur

Çok Teşekkür Ederim. Tekrar ellerinize sağlık.

Hayırlı geceler.

 

[Ömer]

#9 numaralı mesajı bu doğrultuda güncelledim.

 

[demirdemir88]

Ömer Bey;

Emekleriniz için çok teşekkür ederim ellerinize sağlık.

İyi çalışmalar dilerim.