Hücrelerdeki Benzer Koşullara Göre Link Oluşturma

[my_gan]

Herkese merhaba,

Hücrelerdeki benzer olan( fiş numaraları) koşulları sağlayan satırları yeni bir sekmede link oluşturarak açmak istiyorum.
Derdimi daha iyi anlatabilmek amacıyla ekte örnek bir dosya paylaşıyorum. Ekteki dosyada "Fiş No" başlıklı turuncu renk ile belirttiğim alanları link haline getirip, birisinin üzerine tıkladığımda benzer fiş numarasına sahip olanları yan sekmede açmak istiyorum. Örnekte 273 nolu fişi yan sekmeye kopyaladım. Böyle bir şey mümkün mü ?

Şimdiden herkese teşekkür ederim.

Link;
https://dosya.co/h2l2stu9fp42/Deneme.xlsx.html

 

[my_gan]

Link verme işini yapabildim ama, linke formül yapamıyorum bir türlü.
dosyayı yükledim aşağıdadır. Şİmdiden teşekkür ederim.
https://www.dosyaupload.com/6hoc

 

[my_gan]

Merhaba herkese tekrardan. Acaba konuyu yanlış yere mi açtım ? Yada çözümsüz bir şey mi istedim.

 

[çıtır]

Yardımcı sütunlar kullanılarak formülle oluşturulmuş çözüm.İsteğinizi karşılar mı? İsteğiniz böyle bir çözüm mü tam anlamadım.İnceleyiniz.Fiş numaraları link yapıldığında döngüsel başvuru olur ve formül değer yazarken silinir.Formülle bu kadar olur sanırım.
https://dosya.co/jtnztroebfjx/link.rar.html

 

[my_gan]

Teşekkür ederim emekleriniz için. Sanırım benim iş makroluk

 

[çıtır]

Teşekkür ederim emekleriniz için. Sanırım benim iş makroluk

Rica ederim.Dönüş yaptığınız için ben teşekkür ederim.Cevap gelmediğine göre sanırım isteğinizde tam olarak anlaşılmıyor olabilir.

 

[my_gan]

Rica ederim.Dönüş yaptığınız için ben teşekkür ederim.Cevap gelmediğine göre sanırım isteğinizde tam olarak anlaşılmıyor olabilir.

Açıkçası çok açık yazdığımı düşünüyorum
Ekteki örnek dosyalardan anlatmaya çalıştım. Biraz düşeyara formülü gibi birşey istediğim. Her satırın F sütunundaki fiş numaralarından gitmek istiyorum. Fiş numaralarının hepsine link vermek istiyorum. Örnek veriyorum 8.satırda bulunan 273 fiş numarasına tıkladığımda farklı satırların F sütununda aynı fiş numarası varsa, o satırları da farklı sekmede göreyim.
Anlatabilmişimdir umarım.

 

[ÖmerBey]

Merhaba,
Makro ile hazırlanmış dosyanız ektedir.
İyi çalışmalar...

 

[gicimi]

Yardımcı sütunlar kullanılarak formülle oluşturulmuş çözüm.İsteğinizi karşılar mı? İsteğiniz böyle bir çözüm mü tam anlamadım.İnceleyiniz.Fiş numaraları link yapıldığında döngüsel başvuru olur ve formül değer yazarken silinir.Formülle bu kadar olur sanırım.
https://dosya.co/jtnztroebfjx/link.rar.html

Sayın @çıtır Siteden dosya silinmiş güncelleyebilir misiniz.

 

[çıtır]

Fiş numaraları link yapıldığında döngüsel başvuru oluyor.Yantarafa bir sütun açarak veya sona link oluşturulabilir.2 seçeneğe göre hazırlanmış dosya.Bilmem oldu mu?
https://dosya.co/m9mcjb10btjf/link2.rar.xlsx.html

 

[gicimi]

@çıtır hocam link güncellenmiş teşekkür ederim.

 

[çıtır]

@çıtır hocam link güncellenmiş teşekkür ederim.

Rica ederim.Nezaketiniz için ben teşekkür ederim.

 

[my_gan]

Merhaba,
Makro ile hazırlanmış dosyanız ektedir.
İyi çalışmalar...

Ömer Bey oldu çok teşekkür ederim. Yoğunluktan geç dönüş yaptım.Kusura bakmayın.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[my_gan]

Rica ederim,
İyi çalışmalar...

Ömer Bey sizden bir yardım daha alabilir miyim ?
Yapmış olduğunuz çalışma filtreleme yaptığımda işlemiyor.
Örnek vermem gerekirse Kebir sütunundan sadece bir hesap bırakıyorum. Daha sonra F sütununa çift tıkladığımda filtre dışı bırakılanlar gelmiyor.
Bunu aşabilir miyiz acaba . Şimdiden çok teşekkür ederim.

 

[ÖmerBey]

Dosyadaki kodu aşağıdakiyle değiştiriniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F:F")) Is Nothing Or Target = "" Then Exit Sub
Dim s1 As Worksheet, s2 As Worksheet
Dim kopya As Range, a As Long
Cancel = True
Set s1 = Sheets("Muavin")
Set s2 = Sheets("Sayfa2")
Application.EnableEvents = True
Application.ScreenUpdating = False
s2.UsedRange.Clear
s1.Range("A1:I1").Copy s2.Range("A1")
For a = 2 To s1.UsedRange.Rows.Count
    If s1.Cells(a, "F") = Target.Value Then
        x = s2.Cells(Rows.Count, "F").End(3).Row + 1
        s2.Range("A" & x & ":I" & x).Value = s1.Range("A" & a & ":I" & a).Value
    End If
Next
Target.EntireRow.Copy
s2.Rows("2:" & x).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
s2.Activate
s2.Range("A1").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[my_gan]

Dosyadaki kodu aşağıdakiyle değiştiriniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F:F")) Is Nothing Or Target = "" Then Exit Sub
Dim s1 As Worksheet, s2 As Worksheet
Dim kopya As Range, a As Long
Cancel = True
Set s1 = Sheets("Muavin")
Set s2 = Sheets("Sayfa2")
Application.EnableEvents = True
Application.ScreenUpdating = False
s2.UsedRange.Clear
s1.Range("A1:I1").Copy s2.Range("A1")
For a = 2 To s1.UsedRange.Rows.Count
    If s1.Cells(a, "F") = Target.Value Then
        x = s2.Cells(Rows.Count, "F").End(3).Row + 1
        s2.Range("A" & x & ":I" & x).Value = s1.Range("A" & a & ":I" & a).Value
    End If
Next
Target.EntireRow.Copy
s2.Rows("2:" & x).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
s2.Activate
s2.Range("A1").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Ömer Bey çok teşekkür ederim. Elinize sağlık.