butona her tıkladığımda bir sütünün gizlenmesi

[brementarik]

ekte verdiğimde dosyada üç adet sorum var.
çözümleriniz için teşekkürlerimi sunarım..
1-İstenilen tarihten öncesinin gizlenilmesi
2-İstenilen tarihin bulunabilmesi
3-Buton yardımı ile sütün gizleme

 

[Ömer]

Merhaba,

İlk sorunuz için,

Sub BulGizle()
 
On Error Resume Next
Cells.EntireColumn.Hidden = False
 
tarih = InputBox("Arananacak Değeri Giriniz", "Tarih Arama")
[A1] = CDate(tarih)
sıra = WorksheetFunction.Match([A1], [2:2], 0)
 
Range(Cells(1, 3), Cells(Rows.Count, sıra)).EntireColumn.Hidden = True
 
End Sub

2. sorunuzda istenen, tarihi bulmadan kastınız nedir. Nerde arıyorsunuz ve tarihin sırasınımı yada hangi bilgisini arıyorsunuz.

3. sorunuzda istenene, sütun gizleme fakat hangi sütunları gizleme ?

Sorularınızı daha net açıklamaya özen gösteriniz..

.

 

[N.Ziya Hiçdurmaz]

Yanıt

Alternatif

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then
MsgBox "Önce bir tarih seçmelisiniz.", vbInformation
Exit Sub
End If
For sut = 3 To 369
If Cells(2, sut) <= CDate(ComboBox1) Then
    Cells(2, sut).EntireColumn.Hidden = True
End If
Next
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
For sut = 3 To 369
    Cells(2, sut).EntireColumn.Hidden = False
Next
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton3_Click()
ActiveCell.EntireColumn.Hidden = True
End Sub
Private Sub UserForm_Initialize()
For sut = 3 To 369
    ComboBox1.AddItem
    ComboBox1.List(s, 0) = Format(Cells(2, sut), "dd.mm.yyyy")
    s = s + 1
Next
End Sub

 

[brementarik]

öncelikle ilginize teşekkür ederim

2. sorumda istediğim tarih,yatayda c2:ng2 aralığında bulunan tarih grubu içinde mesela a1 yazdığım tarihe gitmesi

3. sorunuzda istenen sütün gizlemede öncelikle c sütününü
tikledikten sonra d sütününü
her tiklemeden sonra diğer sütünü gizlemesini kastetmiştim.

 

[Ömer]

2)

A1 hücresine tarih yazın. B1 hücresine formülü yazın. B1 e tıklayınca ilgili tarihe gidecektir.

=EĞER(EHATALIYSA(KAÇINCI(A1;2:2;0));"Tarih Bulunamadı";
KÖPRÜ("[[COLOR=blue]Sütün Gizleme[/COLOR].[COLOR=red]xlsx[/COLOR]]KÜMÜLE!"&ADRES(2;KAÇINCI(A1;2:2;0));"Tarihe Git"))

3)

Sub Gizle()
    sıra = Range("A2").End(xlToRight).Column
    Columns(sıra).EntireColumn.Hidden = True
End Sub

.

 

[brementarik]

Ömer Bey ilginize teşekkür ederim.

1.Sorumun cevabını uygulamasını ne yazık ki yapamadım.

Sub BulGizle()

On Error Resume Next
Cells.EntireColumn.Hidden = False

tarih = InputBox("Arananacak Değeri Giriniz", "Tarih Arama")
[A1] = CDate(tarih)
sıra = WorksheetFunction.Match([A1], [2:2], 0)

Range(Cells(1, 3), Cells(Rows.Count, sıra)).EntireColumn.Hidden = True

End Sub

ve 2.sorumun cevabını uyguladığımda
tarihe git dediğimde belirtilen dosya açılamıyor diye ibare çıkıyor.
İstediğim şuydu a1 hücresine 15 ocak tarihini girdiğimde Q4 hücresine gitsin 23 Ocak Yazdığımda Y4 Hücresine gitsin.

Acaba nerede hata yapıyorum..

 

[Ömer]

Kod ve formüller bu istediklerinizi yapıyor. Formülde kırmızı ve mavi işaretlediğim bölgere dikkat ediniz.
2007 kullanıyorsunuz sanırım. Evden, dosyanıza uygulanmış halini foruma eklerim..

.

 

[brementarik]

teşekkür ederim..
sevinirim...

 

[Ömer]

Eki inceleyiniz..

.

 

[brementarik]

teşekkürler

 

[brementarik]

Ömer Bey,
Tarih gir formülünüzü ekte bulunan tabloya uyguladım ama
hata verdi.
Acaba nerede hata yapıyorum.

Saygılarımla..

 

[Ömer]

Formüldeki sayfa adını değişmemişsiniz.

Siz formülü aşağıdaki ile değiştiriniz. Sayfa adını yada çalışma kitabı adını formülden alacaktır..

=EĞER(EHATALIYSA(KAÇINCI(A1;5:5;0));"Tarih Bulunamadı";KÖPRÜ(YERİNEKOY(SAĞDAN(
HÜCRE("DOSYAADI";A1);UZUNLUK(HÜCRE("DOSYAADI";A1))-BUL("[";HÜCRE("DOSYAADI";
A1))+1)&"'!"&ADRES(5;KAÇINCI(A1;5:5;0));"]";"]'");"Tarihe Git"))

.

 

[brementarik]

ilginize teşekkür ederim Ömer Bey..

Öğrenmek amacıyla soruyorum.
=EĞER(EHATALIYSA(KAÇINCI(A1;5:5;0));"Tarih Bulunamadı";KÖPRÜ(YERİNEKOY(SAĞDAN(
HÜCRE("DOSYAADI";A1);UZUNLUK(HÜCRE("DOSYAADI";A1))-BUL("[";HÜCRE("DOSYAADI";
A1))+1)&"'!"&ADRES(5;KAÇINCI(A1;5:5;0));"]";"]'");"Tarihe Git"))

formülünü nasıl makroya çevirebiliriz?

teşekkürler..