[ÇÖZÜLDÜ] coklu sütünlar

[Ömer]

merhaba arkadaşlar ,
excel sayfamda 150 tane sütün oluşturdum ve bu stünlardan örneğin " CH , IL ve DB " sütünlarını mavi renk yapmak istiyorum bir ikinciside eğer mümkünse mavi yaptığım sütünlar haricindeki diğer bütün sütünların silinmesini istiyorum..bu işlemleri sütünları arayıp tek tek işaretlemeden yapmanın bir formülü varmıdır..

 

[Korhan Ayhan]

Selamlar,

Sorunuzu örnek dosya ekleyerek açıklarmısınız.

 

[Skorpiyon]

Sayın espiyonajl,

Ekli dosyayı inceleyiniz. İstediğiniz böyle bir şey mi ?

Saygılarımla...

 

[Ömer]

coklu sütünlar

merhaba arkadaşlar,
excel dosyasında içerisinde 256 adet sütun bulunan bir tablo hazırladım..bu çalışmamda içinde " ı ve o " harfi olan kodlamalar var..benim burda yapmak istediğim içinde toplam 6 adet " o " harfi olan sutunları ayıklayıp gerisini silmektir..tek tek bakıp bunları yapmak cok uzun zaman alıdığı için bu konuda sizden yardım bekliyorum..
birde bu çalışma sayfasında hangi sütunlarda 6 adet " o " harfi var onları ben önceden hazırlarken bildiğim için, benim için önemli olan 6 adet " o " harfi olmayan sutunları silmek oluyor.hepsini tek tek sağ tıklayıp silmek cok uzun zamanımı alıyor..
yardımlarınız için şimdiden çok teşekkür ederim...

 

[hamitcan]

............

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SÜTUN_SİL()
    Application.ScreenUpdating = False
    For X = 256 To 1 Step -1
    If WorksheetFunction.CountIf(Columns(X), "O") <> 6 Then Columns(X).Delete
    Next
    Application.ScreenUpdating = True
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Ömer]

arkadaşlar herşey için cok teşekkür ederim, yalnız benim hatam bir konuyu söylemeye unutmuş..cost_control sizin kodu denedim..cok faydalı oldu..ek olarak bir yardım daha almam mümkünmü...
içinde 6 adet " o " harfi olanları bulup ayıkladık, yalnız 6 adet " o " harfi olup da tekrarlı olmayanlarıda silmemiz gerektiğini söylemeyi atlamışım..yani hem içinde 6 adet " o " harfi olacak hemde o harfleri tekrarlı olmıyacak..

 

[Ömer]

özür dilerim..siz değil ben bişeyi söylemeyi unutmuşum..yanlış anladınız sanırım hamitcan siz..

 

[Korhan Ayhan]

Selamlar,

Tekrarlı derken neyi kastediyorsunuz. Örnekleyerek açıklarmısınız.

 

[Ömer]

I
I
O
I
I
I
O
I
I
O
I
O
I
I
I
I
I
I
I
I
I
I
I
O
O

yani bu şekilde alt alta gelen " o " harfi olan sütunlarında silinmesi gerekiyor...yani kısa bir sutunda hem 6 adet " o " harfi olacak hemde örnekteki gibi sıralı ( yani alt alta gelmeyenler) olacak..

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz örnek dosyaya göre en son mesajınızda belirttiğiniz kritere göre yeni bir kod oluşturdum. Dosyanız üzerinde denedim ve bütün sütunları sildi. Sebebi ise 6 adet "O" bulunan sütunların hepsinde iki adet "O" alt alta gelmektedir. İstediğiniz sonuç bu şekildemi?

 

[Ömer]

selamlar,
ilk verdiğiniz kod ile istediğim sonucu aldım fakat, ek olarak şunu demek istiyorum..eğer bi sutunda 6 adet " o " harfi olsa bile " o " harfleri alt alta geliyosa onlarında silinmesini gerekiyodu...sorumu iletirken size ben bunu ilave etmeye unutmuşum...bununla ilgli yardımcı olabilirseniz cok mutlu olurum..

ilginiz için teşşekkür ederim..

eğer acıklamam yeterli olmasa ekli dosya koyarak bilgi vermeye çalışırım

 

[Korhan Ayhan]

Selamlar,

Çözümü netleştirmek adına örnek dosya ekleyerek açıklama yaparsanız daha faydalı olacaktır.

 

[Ömer]

selamlar,
cost_control hocam..ekte iki adet dosya görebilirsiniz..bunlarda ilki ( kodlu ) sizin bana verdiğiniz kodu uygulamadan önceki tablo..ikinci tablo ( kodlu ) ise sizin kodu çalıştırdıktan sonra oluşan tablodur...
ilk verdiğiniz kod , sutundaki 6 adet " o " harfi olan sutunları ayıklayıp gerisini silen bir kod idi..benim istediğimde zaten boyle bir kod idi..
yalnız, birşeyi atlamışım ben..ekli dosyanın ikincisinde ( kodlu ) sarı renkle işaretlediğim sutunlarında silinmesi gerekiyodu, nedeni ise örnek olsun diye,ilk dört sutunda işaretlediğim kırmızı renkteki " o " harflerinin alt alta gelmesi..yani bir sutunda toplam 6 adet " o " harfi olsa dahi eğer bu " o " harfleri alt alta örnekteki gibi geliyosa o sutunlarında silinmesi gerekiyodu..

bununla ilgili yeni bir kod yazabilirmisiniz acaba..
ilginiz için çok teşekkür ederim..

Ayrıca forumdaki herkezin Zafer Bayramını kutlarım...

 

[Korhan Ayhan]

Selamlar,

Eklemiş olduğunuz iki dosyada aynı sanırım bir yanlışlık oldu.

 

[Ömer]

selamlar,

evet haklısınız bir yanlışlık olmuş..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Yalnız 8. bölümdeki açıklamamda bahsettiğim gibi eklediğiniz örnek dosyada kodu çalıştırdığımda bütün sütunları sildi.

Sub SÜTUN_SİL()
    Application.ScreenUpdating = False
    For X = 256 To 1 Step -1
    If WorksheetFunction.CountIf(Columns(X), "O") <> 6 Then Columns(X).Delete
    Next
    For Y = [IV1].End(1).Column To 1 Step -1
    For Z = Cells(65536, Y).End(3).Row To 2 Step -1
    If Cells(Z, Y) = "O" And Cells(Z - 1, Y) = "O" Then
    Columns(Y).Delete
    GoTo Devam
    End If: Next
Devam:
    Next
    Application.ScreenUpdating = True
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Ömer]

Selamlar,
verdiğiniz kodu denedim, yalnız söylediğiniz gibi bütün sutunları siliyo fakat verdiğim kiriterlere uyan 5 tane sutun olması gerkiyor. çalışma sayfasında...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[Ömer]

yeni kodlama tam istediğim gibi olmuş, herşey için çok teşekkür ederim