makro arama bulma yazma yardım

[bafralifatih55]

merhaba arkadaşlar
şöyle bir kod buldum. bu kodu aşağıdaki gibi uyarlayabilirmiyim:
1- iade al!b sütununa girdğim veriyi gizli!q sütununda tam eşleşme bulacak.
2- eğer veriyi bulursa bulduğu veriyi gizli!B sütununa göre karşısındaki gizli!d sütununa evet yazacak.
bu şekilde uyarlama şansımız var mı? veya başka bir makro öneriniz var mı?
kod şöyle:

Sub BUL2()
Dim DEG As String
On Error GoTo HATA
'Range("a1:C1000").Interior.ColorIndex = xlNone
DEG = InputBox("Aranacak veriyi giriniz.")
Cells.Find(DEG, LookIn:=xlValues, lookat:=xlWhole).Select
Range(Selection, Selection.Offset(0, 2)).Interior.ColorIndex = 6
HATA:
If Err Then
MsgBox "Aradığınız değer bulunamadı."
End If
End Sub

teşekkürler.

 

[Muzaffer Ali]

Merhaba.

İadeal sayfa adını sağ tıklatın Kod Görüntüle seçin
Açılan sayfaya aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("B:B")) Is Nothing And Not Target = "" And Target.Cells.Count = 1 Then
        Dim Bulunan As Range
        Set Bulunan = Worksheets("Gizli").Range("Q:Q").Find(What:=Target.Value, LookIn:=xlValues, MatchCase:=True)
        If Bulunan Is Nothing Then
            MsgBox "Yazdığınız kod '" & Target & "' Q sütununda bulunamıyor."
        Else
            Set Bulunan = Worksheets("Gizli").Range("B:B").Find(What:=Target.Text, LookIn:=xlValues, MatchCase:=True)
            If Bulunan Is Nothing Then
                MsgBox "Yazdığınız kod '" & Target & "' B sütununda bulunamıyor."
            Else
                Worksheets("Gizli").Range("D" & Bulunan.Row) = "EVET"
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

İadeal sayfasının B kolonuna bir veri girişi yada değişklik yaparsanız kodlar çalışacak ve istediklerinizi gerçekleştirecektir.

 

[bafralifatih55]

merhaba sayın dalgalikur
öncelikle eline sağlık kardeşim. çok işime yaradı. beni büyük bir sıkıntıdan kurtardın.
dosyada biraz performans kaybı oldu. bu makro ile alakalı olabilir mi?

 

[Muzaffer Ali]

Rica ederim. Sorunun çözüldüğüne sevindim.

Dosyada çok fazla formül var.
Performans kaybı ondan kaynaklanıyor olabilir.

 

[bafralifatih55]

o zaman bu formülleri de makroya dönüştürsem daha iyi olabilir o zaman.
senin yazdığın makroda değişiklik yaparak iade sayfasındaki alanlarıda yazdırabilirim değil mi?

 

[Muzaffer Ali]

Elbette yapılabilir.

Bence bu dosya üzerinde değil de yeni bir çalışma dosyası hazırlayıp adım adım ilerlerseniz daha iyi olur.
Sizin de malumunuzdur, tamir etmektense yeni yapmak daha kolay olur.

Tam olarak yapmak istediğiniz şey nedir? Burada genel olarak anlatır mısınız?

 

[bafralifatih55]

Elbette yapılabilir.

Bence bu dosya üzerinde değil de yeni bir çalışma dosyası hazırlayıp adım adım ilerlerseniz daha iyi olur.
Sizin de malumunuzdur, tamir etmektense yeni yapmak daha kolay olur.

Tam olarak yapmak istediğiniz şey nedir? Burada genel olarak anlatır mısınız?

merhaba
hocam bir z kütüphanemiz var. bu z kütüphanede öğrenciler çeşitli kitapları alıp veriyorlar. amaç öğrencilerin kitaplarının takip edilmesi. kim aldı ne zaman aldı geri getirdimi süresi doldumu gibi.
makro bilgim fazla olmadığından formüllerle hazırladım. ancak bir süre sonra formüller ihtiyaçlara cevap vermedi.
özetle bu şekilde hocam.

 

[bafralifatih55]

merhaba
dalgalikur kardeşim. makroyu sabahtan beri test ediyorum. ilginç bir sorun ile karşılaştırm.
elimdeki orjinal dosyaya uyguladım. iade sayfasında ilk 40 kaydı başarı ile evet yazıyor. ama nedense 43, 46, 50'nci gibi bazı kayıtları evet şeklinde düzeltmiyor.
bu konuda yapılacak bişey var mı kardeşim?
teşekkürler.

 

[Muzaffer Ali]

Ben boş kaldıkça sizin için bir kitap takip uygulaması yazacağım.
Şimdi araştırma yaptım hep ücretli programlar var. Böylesine hayırlı bir işe katkıda bulunmayı ben de isterim.
Gelişmeleri ve eğer sormam gereken bir şey olursa bu konu altında yazışırız.

 

[bafralifatih55]

hocam size zahmet olacak epey uğraştırıcı çünkü
ama sizden ricam sayfada geliştirici araçları olmasın olur mu?

 

[Muzaffer Ali]

Merhaba.
Excel ile yapmıyorum.
Ekte ana hatları ile yaptığım çalışma var.
Ana sayfa haricinde butonlar çalışmıyor.
Sadece tasarım ve içerik olarak inceleyin.
Eklenmesi gereken bir şey varsa şimdiden konuşalım.

 

[bafralifatih55]

merhaba kardeşim
ricam olabilir mi? ben ekran okuyucu program kullanıyorum. bu uygulamayı menustrip şeklinde yapabilir misin?
listelenmesi gereken alanlar listitem şeklinde olabilir mi?

 

[Muzaffer Ali]

Tamam o kısmı düzeltirim.

 

[Muzaffer Ali]

Son hali şimdilik şöyle.

İncelemenizi ve olumlu-olumsuz geri dönmenizi bekliyorum.

 

[bafralifatih55]

hocam uygulamada özel durum işlenmedi hataları mevcut evet güzel olmuş.
elinize sağlık. daha detaylı inceleyip yine yaacağım inşallah.

 

[Muzaffer Ali]

Hata Framework kütüphanesinden kaynaklanıyor.
İşletim sisteminiz nedir?
Son güncellemeleri yaptınız mı?

 

[bafralifatih55]

merhaba windows10 framework frameworkler güncel

 

[Muzaffer Ali]

Şu anki hali ekte. Kişi ekleme ve listeleme kısmı bitti sayılır.
Hata için bir kontrol ekledim.
Eğer hata alırsanız tam metnini ve nerede hata verdiğini söylerseniz gözden geçiririm.

 

[bafralifatih55]

merhaba hocam.
öncelikle elinize sağlık hocam. güzel oluyor.
kişiler kısmını inceledim. ama diğer bilgiler alanları olmasa daha iyi olur sanki diye düşünüyorum.
birde arama kısmında arama textboxun ne olduğunu ekran oluyucu söylemiyor. galiba label veya accessname yok.
elinize sağlık teşekkürler.

 

[Muzaffer Ali]

Diğer ile belirttiğim alanlar belki sizin işinize yaramayabilir fakat belki başka bir kullanıcı için ihtiyaç olabilir.
Eğer siz kendiniz için özel olarak olmasını istemezseniz en son Diğer kısmını sadece size özel olarak kaldırabilirim.
Yada seçenek de koyabilirim. "Yeni Alan Ekle/Kaldır" gibi.

Arama ve Tür seçimi kısmına label ekledim. Daha iyi oldu sanırım.
AccessName eklemeye gerek kalmadı. Ama isterseniz ekleyebilirim.

Aslında hiçbir kontrole AccessName eklemedim isterseniz hepsine ekleyebilirim, label yeterli derseniz siz bilirsiniz..
Daha önce hiç ekran okuyucuları dikkate almamıştım, sayenizde bundan sonra ekran okuyucuyu dikkate alacağım.

Berber iyi bir kütüphane programı çıkaracağımıza inanıyorum. Ben de teşekkür ederim.