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

Katılım
8 Kasım 2008
Mesajlar
53
Excel Vers. ve Dili
microsoft office 2016 professional plus 2016
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
 
Katılım
8 Kasım 2008
Mesajlar
53
Excel Vers. ve Dili
microsoft office 2016 professional plus 2016
Merhaba herkese tekrardan. Acaba konuyu yanlış yere mi açtım ? Yada çözümsüz bir şey mi istedim.
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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
 
Katılım
8 Kasım 2008
Mesajlar
53
Excel Vers. ve Dili
microsoft office 2016 professional plus 2016
Teşekkür ederim emekleriniz için. Sanırım benim iş makroluk :)
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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.
 
Katılım
8 Kasım 2008
Mesajlar
53
Excel Vers. ve Dili
microsoft office 2016 professional plus 2016
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,088
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Makro ile hazırlanmış dosyanız ektedir.
İyi çalışmalar...
 

Ekli dosyalar

Son düzenleme:

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,088
Excel Vers. ve Dili
2007 Türkçe
Rica ederim,
İyi çalışmalar...
 
Katılım
8 Kasım 2008
Mesajlar
53
Excel Vers. ve Dili
microsoft office 2016 professional plus 2016
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,088
Excel Vers. ve Dili
2007 Türkçe
Dosyadaki kodu aşağıdakiyle değiştiriniz.
PHP:
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
 
Katılım
8 Kasım 2008
Mesajlar
53
Excel Vers. ve Dili
microsoft office 2016 professional plus 2016
Dosyadaki kodu aşağıdakiyle değiştiriniz.
PHP:
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.
 
Üst