Makro ile değer arama

[alirizapekbilir]

M2 hücresindeki değeri N2:AIC2 satırında araması ve bulduğu ilk hücreye gitmesini makro ile nasıl sağlarım. M2 hücresini her değiştirdiğimde bu arama işlemini sürekli yapmalı. Yardımlarınız için şimdiden teşekkürler.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M2]) Is Nothing Then Exit Sub
Aranan = Cells(Target.Row, "M")
For i = 14 To 913
    If Cells(2, i) = Aranan Then
        Cells(2, i).Select
        Exit Sub
    End If
Next
End Sub

 

[alirizapekbilir]

oldu

Çok teşekkür ederim çok sağolun. Elinize sağlık

 

[askm]

Rica ederim.

 

[tekirdagli_0059]

Merhaba Üstadlar;
Basit bir yıllık izin takip formu düzenliyorum fakat makroyla çözmek niyetindeyim.
VERİ sayfasında;1 İzin için
A sütunu Sırano
B sütunu Ad-Soyad
C Sütunu İzin başlangıcı
D Sütunu İzin Bitişi
E Sütunu İşbaşı tarihi
F Sütunu kullanılan İzin
2.3.4.izinler için aynı kriterler G-H-I-J-K-L-M... sütunları olarak devam ediyor.
Diğer sayfada da (SAYFA1)
A5 Ad Soyad / B5 Veri Doğrulama ile Veri sayfasındaki AD-SOyad
A6 İzin Başlangıç: / B6 Tarih
A7 İzin Bitiş: / B7 Tarih
A8 İş başı:/ B8 Tarih
A9 Kullanılan İzin / B9 Sayı formatında gün değerleri mevcut.

SAYFA1 B5 değerini Veri sayfasında bulacak;b6-b7-b8-b9 yazan değerleri Veri sayfasındaki
boşsa C-D-E-Fsütunlarına,doluysa G-H-I-J onlarda doluysa ;K-L-M-N onlarda doluysa ;O-P-Q-R alanlarına aktarmasını istiyorum.
Umarım sıkıntımı anlatabilmişimdir.
Şimdiden yardım ve destekleriniz için teşekkürler.
Örnek dosya:
http://www.dosyaupload.com/daOT

 

[tekirdagli_0059]

Merhaba Üstadlar;
Basit bir yıllık izin takip formu düzenliyorum fakat makroyla çözmek niyetindeyim.
VERİ sayfasında;1 İzin için
A sütunu Sırano
B sütunu Ad-Soyad
C Sütunu İzin başlangıcı
D Sütunu İzin Bitişi
E Sütunu İşbaşı tarihi
F Sütunu kullanılan İzin
2.3.4.izinler için aynı kriterler G-H-I-J-K-L-M... sütunları olarak devam ediyor.
Diğer sayfada da (SAYFA1)
A5 Ad Soyad / B5 Veri Doğrulama ile Veri sayfasındaki AD-SOyad
A6 İzin Başlangıç: / B6 Tarih
A7 İzin Bitiş: / B7 Tarih
A8 İş başı:/ B8 Tarih
A9 Kullanılan İzin / B9 Sayı formatında gün değerleri mevcut.

SAYFA1 B5 değerini Veri sayfasında bulacak;b6-b7-b8-b9 yazan değerleri Veri sayfasındaki
boşsa C-D-E-Fsütunlarına,doluysa G-H-I-J onlarda doluysa ;K-L-M-N onlarda doluysa ;O-P-Q-R alanlarına aktarmasını istiyorum.
Umarım sıkıntımı anlatabilmişimdir.
Şimdiden yardım ve destekleriniz için teşekkürler.
Örnek dosya:
http://www.dosyaupload.com/daOT

çok mu zor sordum acaba?yoksa Ramazan dolayısıyla şite kapalı mı?

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub izin()
Set s1 = Sheets("VERİ")
Set s2 = Sheets("Sayfa1")
son = s1.Cells(Rows.Count, "B").End(3).Row
If s2.[B5] <> "" Then
    For i = 3 To son
        If s1.Cells(i, "B") = s2.[B5] Then
            yeni = s1.Cells(i, Columns.Count).End(xlToLeft).Column + 1
            s2.Range("B6:B9").Copy: s1.Cells(i, yeni).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True
            Application.CutCopyMode = False
            MsgBox "İşlem Tamamlandı"
            i = son
        End If
    Next
End If
End Sub

Şahsen ben eğer daha önce bakmadığım bir konuysa ve konuda birden fazla cevap görünüyorsa o konulara çoğunlukla bakmıyorum. Eğer başka sorunun altına değil de yeni konu olarak sorsaydınız muhtemelen sorunuzun görünürlüğü artar ve cevaba ulaşmanız kolaylaşırdı. Bu benim şahsi görüşüm, başkaları da böyle midir bilmem. Dediğim gibi eğer soruda birden fazla cevap varsa "soru çözülmüştür" diye düşünürüm ve soruya bakmam.

 

[tekirdagli_0059]

YUSUF44 öncelikle hızlı dönüş için teşekkürler.
Diğer noktada sizin düşündüğünüz gibi düşünmemiştim;farklı konu başlığı açmak yerine bir konu başlığı altında ilerlemek daha doğru gelmişti ; bundan sonra bu uyarınız doğrultusunda yazmaya gayret göstereceğim.
Uyarı ve yardımlarınız için çok ama çok teşekkürler.