• Web sitemize destek olmak, Hazır Excel Dosyaları indirmek ve sitemizi reklamsız kullanmak için VIP Üyelik Satın alabilirsiniz.
    Hesabını VIP Üyeliğe Yükselt
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

kekoli

Yeni Üye
Kullanıcı

Reputation:

Merhaba,

A1=A2=A3=A4=ASON

ise A sütununu gizle işlemini yaptırmak istiyorum,

bunu yaptıktan sonra b c d ve SON SÜTUN'a kadar kontrol etsin istiyorum,

sadece A sütunu için yardımcı olabilirseniz geri kalanını ben hallederim,
teşekkür ederim.
 
Çözüm
Buyrun kodunuz, Deneyiniz.

PHP:
Sub sutunugizle()
    sonsutun = Cells.SpecialCells(xlCellTypeLastCell).Column
        For xd = 1 To sonsutun
            If Columns(xd).EntireColumn.Hidden = False Then
                    sonsat = Cells(Rows.Count, xd).End(xlUp).Row
                        For Each j In Range(Cells(2, xd), Cells(sonsat, xd)).SpecialCells(xlCellTypeVisible)
                            For Each i In Range(Cells(2, xd), Cells(sonsat, xd)).SpecialCells(xlCellTypeVisible)
                                If i.EntireRow.Hidden = False Then
                                    If j.Value <> i.Value Then
                                        kontrol = True
                                        Exit For...

cakarem

Bî-gam olan âdem olamaz...
Yönetici
Site Yöneticisi
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Burada Ason dediğini satır excelin son satırımı(en son satır) yoksa sizin son satırınız mı?
Sütun olarak da sınırladığınız bir alan var mı yoksa son sütuna kadar baksın mı?
 

kekoli

Yeni Üye
Kullanıcı

Reputation:

hayır, benim son satırım. şöyle bir şeyler yapmaya çalıştım ama olmadı..
Kod:
Sub sutunugizle()
sonsutun = Cells.SpecialCells(xlCellTypeLastCell).Column
sonsatir = Cells.SpecialCells(xlCellTypeLastCell).Row

For n = 1 To sonsutun


Dim c As Range

    For Each d In Range(Cells(3, n), Cells(sonsatir, n)).Cells
    For Each c In Range(Cells(2, n), Cells(sonsatir, n)).Cells
        If c.Value = d.Value Then
            c.EntireColumn.Hidden = True

        End If
    Next c
    


Next






End Sub
 

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

A sütunundaki veriler alt alta olan birbirine eşit ise mi gizlemek istiyorsun yani bir sütunda alt alta yazan değerler aynı ise mi gizlensin.
 

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

[CODE lang="php" title="Sütunda alt alta aynı olanları gizle"]Sub sutunugizle()
sonsutun = Cells.SpecialCells(xlCellTypeLastCell).Column
For xd = 1 To sonsutun
sonsat = Cells(Rows.Count, xd).End(xlUp).Row
For j = 2 To sonsat
For i = 2 To sonsat
If Cells(j, xd) <> Cells(i, xd) Then
kontrol = True
Exit For
Else
kontrol = False
End If
Next
Next
If kontrol = False Then Columns(xd).EntireColumn.Hidden = True
Next
End Sub
[/CODE]
 

kekoli

Yeni Üye
Kullanıcı

Reputation:

çok güzel oldu, ellerinize sağlık. yalnız küçük bir detayı atladığımı farkettim, ilgili kodu filtrelenmiş bir dataya işliyorum. dolayısıyla bu kontrolü sadece visible(görünür) hücreler üzerinden yapmasının imkanı var mı?
 

kekoli

Yeni Üye
Kullanıcı

Reputation:

sanki çok mümkün değil ya, data filtreli olduğu için alt alta gelen satırlar aslında peş peşe gelen satırlar anlamına gelmiyor.
olabildiğince sadeleştirmeye çalışıyorum datayı da. yapabilirsem bu işi çok güzel olacak.
 

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

Buyrun kodunuz, Deneyiniz.

PHP:
Sub sutunugizle()
    sonsutun = Cells.SpecialCells(xlCellTypeLastCell).Column
        For xd = 1 To sonsutun
            If Columns(xd).EntireColumn.Hidden = False Then
                    sonsat = Cells(Rows.Count, xd).End(xlUp).Row
                        For Each j In Range(Cells(2, xd), Cells(sonsat, xd)).SpecialCells(xlCellTypeVisible)
                            For Each i In Range(Cells(2, xd), Cells(sonsat, xd)).SpecialCells(xlCellTypeVisible)
                                If i.EntireRow.Hidden = False Then
                                    If j.Value <> i.Value Then
                                        kontrol = True
                                        Exit For
                                    Else
                                        kontrol = False
                                    End If
                                End If
                            Next
                        Next
                If kontrol = False Then Columns(xd).EntireColumn.Hidden = True
            End If
        Next
End Sub
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular

Üst