Ozel sekmedeki iki checkboxun ortak calismasi

[cagataybaser]

Merhabalar
kendi ozel sekmeme asagidaki xml kodlariyla iki adet checkbox ekledim
( Microsoft Office icin Custom UI Editor ile )

<checkBox id ="F16" label="F16" onAction="Show_Column" />
<checkBox id ="F20" label="F20" onAction="Show_Column" />

Ve Bu checkboxlar asagidaki kodu calistiriyor :

Sub Show_Column(control As IRibbonControl, pressed As Boolean)
Dim strn As String
ActiveSheet.Cells.EntireColumn.Hidden = False
Range("B:ZZ").EntireColumn.Hidden = True
strn = control.id
Search strn, pressed
End If
End Sub
Sub Search(fnd As String, pressed As Boolean)
If pressed = True Then
Dim firstfound As String
Dim foundcell As Range,rng As Range
Dim myRange As Range, lastcell As Range 
Set myRange = ActiveSheet.UsedRange
Set lastcell = myRange.Cells(myRange.Cells.Count)
Set foundcell = myRange.Find(what:=fnd, after:=lastcell)
If Not foundcell Is Nothing Then firstfound = foundcell.Address
End If
Set rng = foundcell 
Do Until foundcell Is Nothing 
Set foundcell = myRange.FindNext(after:=foundcell) 
Set rng = Union(rng, foundcell) 
If foundcell.Address = firstfound Then Exit Do
Loop 
rng.EntireColumn.Hidden = False
Else
Exit Sub
End If

Gordugunuz uzere gelen checkboxun id sini arastirip bulunan degerleri gosteriyor digerlerini gizliyor.
Yapmak istedigim ise bu iki checkbox"un beraber calismasi.
Yardimci olacaklara cok minnettar kalirim cok tesekkurler.

 

[cagataybaser]

yokmu yardimci olacak bu da dosyamin linki http://www.upload.gen.tr/d.php/www/tFPGV/ORNEK-dosya.rar.html

 

[Muzaffer Ali]

İlk mesajda

Ve Bu checkboxlar asagidaki kodu calistiriyor :

demişsiniz fakat nasıl ve ne zaman çalıştırdığını belirtmemişsiniz. Örnek dosyada ben checkbox göremedim

Örnek dosyada

İstediğim şey f2 ile f3 ün beraber çalışması çok teşekkürler şimdiden

demişsiniz ben bundan bir şey anlamadım.

Bence en başından itibaren tam olarak ne yapmak istediğinizi yazın belki daha çabuk cevap alabilirsiniz.

 

[cagataybaser]

Merhaba dalgalikur,
Ozel sekmemde iki checkbox yarattim yukaridaki xml kodlariyla ve bu iki checkbox"a tiklandiginda asagidaki makroyu calistiriyor.
Makroda ise checkbox"un (xml kodunda verilen) id sini alip sayfada onu ariyor ve buldugu hucrelerin ait oldugu sutunlari gosterip digerlerini gizliyor.Yardim istedigim nokta bu iki checkbox"a beraber basildiginda iki degeri de gostermesi.
Umarim anlatabilmisimdir.

 

[cagataybaser]

Yokmu yardim edecek..lutfen

 

[Korhan Ayhan]

Ben size farklı bir menü çalışması hazırladım. İnceleyin. olmayan bölümler varsa düzenleriz.

ÖRNEK.xlsm - 33 KB