düşeyara-bul ve git

[yağız22]

altalta 30 satır tarih içinde istediğim bir tarihi bulup o hücreye gitmesini istiyorum.ama belirli biralanda bulacak çünkü aynı tarih sayfanın farklı yerlerindede var. bu yapılabilirmi

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k  As Range
If Intersect(Target, [U3]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
Set k = Range("S5:S30").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then k.Select

End Sub

 

[yağız22]

Evren bey çok teşekkürler.elinize sağlık

 

[yağız22]

evren bey rica etsem ve vaktiniz varsa bu kodları makro haline dönüştürebilirmisiniz.sayfanın birkaç yerinde kullanacağım için istediğim zaman yani kısayoluna bastığımda bu işlemi yapmasını istiyorum.kod yazmayı bilmiyorum ama araştırıp hallederim makro işini.

 

[Orion1]

evren bey rica etsem ve vaktiniz varsa bu kodları makro haline dönüştürebilirmisiniz.sayfanın birkaç yerinde kullanacağım için istediğim zaman yani kısayoluna bastığımda bu işlemi yapmasını istiyorum.kod yazmayı bilmiyorum ama araştırıp hallederim makro işini.

Zaten makro.
Kodlar çalışma sayfasının modülünde.

 

[yağız22]

Zaten makro.
Kodlar çalışma sayfasının modülünde.

evren bey ekteki dosyada 2 tane var ikinciyede o makroyu ekleyebilirmisiniz.ben bi türlü yapamadım yani aynı sayfada birkaç farklı yerde kullanıcağım bunu.sizi de uğraştırdık akşam akşam

 

[Korhan Ayhan]

Selamlar,

Bu işlem için makro kullanmanıza bence gerek yok.

CTRL+F (BUL) menüsü ile istediğiniz işlemi yapabilirsiniz.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k  As Range, alan As Range
If Intersect(Target, [U3,N5]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
If Target.Column = 14 Then
    Set alan = Range("L7:L31")
    ElseIf Target.Column = 21 Then
    Set alan = Range("S5:S30")
End If
Set k = alan.Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then k.Select
End Sub

Bu kodların bütün sayfalarda çalışmasını istiyorsanız
Aşağıdaki kodları thisworkbook modülen yapıştıreın.Diğer çalışma sayfasımndaki Prosedürü silin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim k  As Range, alan As Range
If Intersect(Target, [U3,N5]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
If Target.Column = 14 Then
    Set alan = Range("L7:L31")
    ElseIf Target.Column = 21 Then
    Set alan = Range("S5:S30")
End If
Set k = alan.Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then k.Select
End Sub

 

[yağız22]

selamlar,

bu işlem için makro kullanmanıza bence gerek yok.

Ctrl+f (bul) menüsü ile istediğiniz işlemi yapabilirsiniz.

belirli bir alanda yapması gereklı ve aynı tarihten sayfanın diğer bölümlerindede var

 

[yağız22]

Evren gizlen bey çok çok teşekkürler.halloldu

 

[Korhan Ayhan]

Selamlar,

Belirli bir alanı seçip CTRL+F menüsünü kullanabilirsiniz. Bu şekilde sadece seçtiğiniz alanda arama yapılır.

 

[yağız22]

Selamlar,

Belirli bir alanı seçip CTRL+F menüsünü kullanabilirsiniz. Bu şekilde sadece seçtiğiniz alanda arama yapılır.

evet bu şekildede oluyor ama benim listede tarihlerin olduğu hücrede formül var galiba bu yüzden olmuyor

 

[Korhan Ayhan]

Selamlar,

Sn. yağız22,

BUL menüsünü açtığınızda "Seçenekler" butonu vardır. Bu butona tıklayın. Sol alt kısımda "Bak" bölümü var. O bölümdeki seçeneği "Değerler" olarak ayarlayıp arama yaparsanız istediğiniz sonuca ulaşabilirsiniz.

 

[yağız22]

korhan bey teşekkürler