Girişi Yapılan Veriye Ait Ayrıntıların Gösterilmesi İle İlgili Bir Soru?

[ismailavci]

Merhaba kolay gelsin.

Öncelikle soracak olduğum şey Excel'i mi yoksa Access'i mi ilgilendiriyor bilemedim, ayrıca internette veya forumda ne diye aratacağımı bilemediğim için dürüst olayım arama yapamadım. Ki zaten soruyu da nasıl soracağımı bilemedim, lütfen kusuruma bakmayın.

Sorum şu şekilde: Elimde yaklaşık 45-50 sayfadan oluşan bir veri var, her sayfada da en az 100 farklı giriş var, yani toplamda 5 binin üzerinde bir kayıt söz konusu. Bütün sayfalarda HATA KODU VE OLAY, NEDEN, ÇÖZÜM olmak üzere 3 başlık var. HATA KODU VE OLAY başlığının altındaki kodu bir hücreye veya bir kutuya yazdığım zaman sadece o koda ait NEDEN ve ÇÖZÜM konularının görülmesini istiyorum.
Mesela bir hücreye 0101 hata kodunu yazıp bir butona falan bastığımda yanına veya altına o koda ait neden ve çözümlerin gelmesini istiyorum. Bu bilgi bir hücrede de olabilir veya ayrı bir kutu içerisinde açılabilir orası önemli değil.

Başta da dediğim gibi excel mi yoksa access mi kullanmak gerekir ve gerekirse nasıl kullanılır bilmiyorum. Şimdiden çok teşekkür ederim.

Saygılarımla,

İsmail Avcı

 

[Korhan Ayhan]

Ekteki örnek dosyayı deneyiniz.

 

[ismailavci]

Ekteki örnek dosyayı deneyiniz.

Korhan Bey, çok teşekkür ederim ilginiz için. Kusura bakmayın dün cevap yazamadım, evet istediğim böyle birşey, yani işimi görecek. Fakat NEDEN ve ÇÖZÜM alanlarının daha geniş ve uzun veya daha uzun olması mümkün mü? Yani 01-01 yazınca tüm veriyi A6:A14 ve C6:C14 satırları arasına koyuyor; ancak orijinal veri daha uzun olduğu için satırlar yarım kalmış oluyor. Mesela A6:A14 yerine A6:A35 arasında olması veya A ve C sütunlarının genişliği 215 piksel yerine 400 - 500 gibi birşey olması mümkün mü? VB'de kodları inceledim, birkaç yeri karıştırdım; ama yapamadım.

Yani hangi kodu yazarsam yazayım, orijinal veri kısa veya uzun olsun ya da olmasın, verilerin yukarıda da belirttiğim sabit genişlik ve uzunluktaki bir alanda yer almasını istiyorum. Yine tekrar ediyorum, şu anki hali ile de işimi rahatlıkla görüyorum, yani bu istediğimin olması mümkün değilse de sıkıntı olmaz.

Tekrar çok teşekkür ediyorum, iyi günler dilerim.

İsmail Avcı

 

[ismailavci]

Sorum günceldir.

 

[Korhan Ayhan]

Deneyiniz.

Sub HATA_KODU_BUL()
    Dim Bul As Range, Sayfa As Worksheet, S1 As Worksheet, Satir As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("ARAMA")
    S1.Range("A6:C" & S1.Rows.Count).Clear
    Satir = 6
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "ARAMA" And Sayfa.Name <> "ANA SAYFA" Then
            Set Bul = Sayfa.Range("B:B").Find(S1.Range("B1"), , , xlWhole)
            If Not Bul Is Nothing Then
                Sayfa.Select
                Bul.Offset(0, 4).Select
                Selection.Copy
                S1.Cells(Satir, 1).PasteSpecial
                Bul.Offset(0, 6).Select
                Selection.Copy
                S1.Cells(Satir, 3).PasteSpecial
                Satir = Satir + 1
            End If
        End If
    Next
    
    Application.CutCopyMode = xlCopy
    
    S1.Range("A:A").ColumnWidth = 60
    S1.Range("C:C").ColumnWidth = 60
    S1.Range("A6:A25").MergeCells = True
    S1.Range("C6:C25").MergeCells = True
    
    S1.Select
    Set Bul = Nothing
    Set S1 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ismailavci]

Teşekkür ederim Korhan Bey.