Ekdeki makrolu dosyaya yardımcı olurmusunuz.

[abbasonline]

Açıklama dosya içerisinde mevcut, teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim alan As Byte, sh As Worksheet
    If Intersect(Target, Range("G1:H1,K1")) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Address = "$G$1" Then
        alan = 3
        Set sh = Sheets("RAPOR")
        ElseIf Target.Address = "$H$1" Then
        alan = 2
        Set sh = Sheets("RAPOR1")
        Else
        alan = 4
        Set sh = Sheets("RAPOR2")
    End If
    
    If Target <> "" Then
    sh.Columns("A:D").ClearContents
    Range("A1").AutoFilter Field:=alan, Criteria1:="=*" & Target & "*"
    Range("A1").CurrentRegion.Copy sh.Range("A1")
    Range("A1").AutoFilter
    sh.Select
    sh.Cells.EntireColumn.AutoFit
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    End If
    Set sh = Nothing
End Sub

 

[abbasonline]

Evren bey teşekkür ederim, ancak h1 hücresini çift tıkladığımda (rapor1)sayfasına yazdırsa diger (g1) hüc. çift tıkladığımda (rapor) sayfasına yazdırması olabilirmi,

 

[abbasonline]

Evren bey teşekkür ederim, ancak ikinciyi tıkladığımızda (RAPOR1), birinciyi tıkladığımda(RAPOR) sayfasına yazdırabilirmiyiz

 

[abbasonline]

hata oldu.

 

[Orion1]

Ikinciyi tıkladığımda (rapor1), birinciyi tıkladığımda(rapor) sayfasına yazdırabilirmiyiz.

Tekrar düzenledim.
2'nci mesajdan dosyayı tekrardan indirebilirsiniz.

 

[abbasonline]

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

 

[Orion1]

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

Rica ederim.
iyi çalışmalar.

 

[abbasonline]

Evren bey bahse konu makroya bir sorgu ve (rapor2) sayfası daha eklemek için makroyu nasıl düzeltmeliyim.

 

[Orion1]

Evren bey bahse konu makroya bir sorgu ve (rapor2) sayfası daha eklemek için makroyu nasıl düzeltmeliyim.

Neyi sorgulayacağınıza bağlı.

 

[abbasonline]

aynı şekilde sütun içerisinde kelime veyahut rakam da olabilir k1 hücresine yazdığımızı d sütununda arayıp geçen leri RAPAOR2 sayfasına yazdırabilirmiyiz.

 

[Orion1]

aynı şekilde sütun içerisinde kelime veyahut rakam da olabilir k1 hücresine yazdığımızı d sütununda arayıp geçen leri RAPAOR2 sayfasına yazdırabilirmiyiz.

Dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[abbasonline]

teşekkürler, kolay gelsin

 

[Orion1]

teşekkürler, kolay gelsin

Rica ederim.
İyi çalışmalar.

 

[abbasonline]

Evren bey dosyada rakam bulmasını istediğimzde, rakamların biçimi metin ise buluyor yoksa diğer biçimli rakamları bulamıyor boş gösteriyor, bunu nasıl düzeltebiliriz, veyahut bizim yazılı olan rakamlarımızı nasıl metin biçimine çevirebiliriz, özellikleriniden metine çeviriyoruz ancak metin olarak görmüyor tekrar aynı hücreye rakam yazdığımızda metin olarak görüyor, teşekkürler.