Grmüş olduğunuz gibi 2. Ve 4. Maddelerde tamamlandı yazmıyor. İşte durum kısmında tamamlandı yazmayan tüm satırların No ları yukarıda kontrol edilmesi gereken maddelerin numaraları kısmında gsterilecek virgül ile ayrılarak. Sub tamamlandı Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son If Cells = "Tamamlandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub In every job there is a no

Dim i As Integer For i = 1 To Rows. Count text = "" If Cells(i, 1). Value <> "Tamamlandı" Then text = text+i +',' End If Next i Cells(1, 1) = text Excelden hiç anlamam hatta pc de excel bile yok ama netten bakarak yazmayı denedim umarım çalışır hiç denemedim bile TheAvenqer tarafından 19/Oca/21 22:22 tarihinde düzenlenmiştir Bot ve lisans ihtiyaçlarınız için pm atınız.

yapmak istediğini tam anlayamadim dosyayi atsan daha açıklayici olur. In every job there is a no

yNsr bunu yazdı Private Sub Worksheet_SelectionChange Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son If Cells = "Tamamlandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub sayfaya kodu grüntüle diyip bunu yapıştırırsan otomatik yapar işlemi. Emeğin için teşekkürler hocam. Fakat hiçbir tepki vermiyor sayfa bu koda. https://prnt.sc/xa4z9b bende bir sıkıntı yok hocam çalişiyor ilk yolladığım makroyla denediğinde çalişiyor mu? yNsr tarafından 20/Oca/21 13:35 tarihinde düzenlenmiştir In every job there is a no

yaptım atıyorum şimdi edit: boş kolona şunu yazıyorsun +if(c6="tamamlandı","", b6) yukarıdaki formülü aşağı doğru kaydırman gerek. daha sonra numaraları yazmak istediğin kısma da +textjoin bu j:j kısmıda ilk formülü yazdırdığın yer olacak. textjoin formülünüde 2d sanırım yada 2e yazacaksın elimin altında olmayınca 5 defa editledim :D Ekerci tarafından 20/Oca/21 13:01 tarihinde düzenlenmiştir

Neden ugrasiyorsun ki, filter dan tamamlandilarin isaretini kaldirsan bütün digerlerini gsterecektir. pist bak bi! - Ban Golu Canavari

Doğru fakat bana bu lazım :) daha sonrasında diğer sayfalarda anchor, hyper link verme vs.. Vs.. O konumdan yürüyecek.

Çok teşekkür ederim hocam istediğim gibi oldu şimdi. Eğer seni çok uğraştırmayacaksa ve zamanını almayacaksa ayrıca imkanı varsa bir şey daha soracağım. Şimdi bu e2 ye sayılar geliyor olması gerektiği gibi. Peki bu sayılara aynı zamanda anchor atayabilir miyiz? Yani sayıya tıkladığında ilgili satıra geçse yapılabilir mi? rica ederim, yapmak istediğini tam anlamadim hücre sayfa olarak sylersen. "sayfa1 E2" e tıklayinca orada yazanlari "sayfa2 C4" e kopyalasın gibi bir şey mi istiyorsun? In every job there is a no

Hayır hani "tamamlandı" yazanlar dışında ki numaraları e2 hücresine aralarında virgül olacak şekilde yazdırmıştık ya Yan yana. İşte yan yana yazan sayılardan herhangi birine tıklayınca ilgili satıra kayacak sayfa. Mesela e2 hücresinde 4,37,83 yazıyor diyelim. E2 hücresinde ki 37 ye tıklayınca sayfa direk 37. İlgili satıra kaysın. iLLuMiNaTi tarafından 20/Oca/21 16:37 tarihinde düzenlenmiştir

Çok teşekkür ederim hocam istediğim gibi oldu şimdi. Eğer seni çok uğraştırmayacaksa ve zamanını almayacaksa ayrıca imkanı varsa bir şey daha soracağım. Şimdi bu e2 ye sayılar geliyor olması gerektiği gibi. Peki bu sayılara aynı zamanda anchor atayabilir miyiz? Yani sayıya tıkladığında ilgili satıra geçse yapılabilir mi? iLLuMiNaTi tarafından 20/Oca/21 16:20 tarihinde düzenlenmiştir

Aşağıda grmüş olduğunuz tabloda c sütununda ki tanım "tamamlandı" değil ise kontrol edilmesi gereken madde numaraları kısmında aralarında virgül olarak tamamlandı yazmayanların numarası yazacak. Bir türlü yapamadım. Bi el atabilecek olan var mı? https://prnt.sc/x8cov0

Hayır hani "tamamlandı" yazanlar dışında ki numaraları e2 hücresine aralarında virgül olacak şekilde yazdırmıştık ya Yan yana. İşte yan yana yazan sayılardan herhangi birine tıklayınca ilgili satıra kayacak sayfa. Mesela e2 hücresinde 4,37,83 yazıyor diyelim. E2 hücresinde ki 37 ye tıklayınca sayfa direk 37. İlgili satıra kaysın. benim bildiğim bir hücreye birden fazla kprü veremiyorsun o dediğini dolayli yoldan yapabiliriz. In every job there is a no

Bir rnek yükleyebilir misin? Birde biraz daha acik yazabilir misin, cok anlamadim. pist bak bi! - Ban Golu Canavari

iLLuMiNaTi bunu yazdı yNsr bunu yazdı iLLuMiNaTi bunu yazdı yNsr bunu yazdı Private Sub Worksheet_SelectionChange Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son If Cells = "Tamamlandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub sayfaya kodu grüntüle diyip bunu yapıştırırsan otomatik yapar işlemi. Emeğin için teşekkürler hocam. Fakat hiçbir tepki vermiyor sayfa bu koda. https://prnt.sc/xa4z9b bende bir sıkıntı yok hocam çalişiyor ilk yolladığım makroyla denediğinde çalişiyor mu? Benim Excel İngilizce olduğu için Türkçe karakteri tanımadı. Tanımlandi yazınca tanıdı sonunda ki ı i farklı olayı. Bu şekilde çalışıyor yani teşekkür ederim. Bir ricam daha olacak tamamlandı dışındakiler olacaktı bu formül tamamlandı ları sayıyor. İş yerinde olduğum için çok ulaşımım yok onada bir el atar mısın hocam? If Cells <> "Tamamlandı" Then olarak değiştir. ama bunu yaparsan sütundaki boşlularıda alir. şu şekil daha iyi olur Private Sub Worksheet_SelectionChange Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son son1 = Cells If son1 = "Değerlendirme Aşamasında" Or son1 = "İmzalandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub "C" sütununda tamamlandının dışında iki yazan şey varsa "Değerlendirme Aşamasında" ve "İmzalandı" diye onlari arayıp buluyor daha fazla kelime varsa şu satırı If son1 = "Değerlendirme Aşamasında" Or son1 = "İmzalandı" Or son1 = "ekle ekle" Then şeklinde ekleyerek çoğaltabilirsin. yNsr tarafından 20/Oca/21 15:18 tarihinde düzenlenmiştir In every job there is a no

Benim anladığım C sütunundaki tüm satırları tarayıp "Tamamlandı" dışında bir ifade varsa onların no'sunu 2. satırdaki kısma yazacak. Edit: https://www.excel-easy.com/vba/examples/loop-through-entire-column.html Şu tarz bir şey işini grür gibi. motka tarafından 19/Oca/21 22:09 tarihinde düzenlenmiştir

Private Sub Worksheet_SelectionChange Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son If Cells = "Tamamlandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub sayfaya kodu grüntüle diyip bunu yapıştırırsan otomatik yapar işlemi. Emeğin için teşekkürler hocam. Fakat hiçbir tepki vermiyor sayfa bu koda.

iLLuMiNaTi bunu yazdı Hayır hani "tamamlandı" yazanlar dışında ki numaraları e2 hücresine aralarında virgül olacak şekilde yazdırmıştık ya Yan yana. İşte yan yana yazan sayılardan herhangi birine tıklayınca ilgili satıra kayacak sayfa. Mesela e2 hücresinde 4,37,83 yazıyor diyelim. E2 hücresinde ki 37 ye tıklayınca sayfa direk 37. İlgili satıra kaysın. benim bildiğim bir hücreye birden fazla kprü veremiyorsun o dediğini dolayli yoldan yapabiliriz. Anladım hocam. Teşekkür ederim emeklerin için.

iLLuMiNaTi bunu yazdı yNsr bunu yazdı Private Sub Worksheet_SelectionChange Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son If Cells = "Tamamlandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub sayfaya kodu grüntüle diyip bunu yapıştırırsan otomatik yapar işlemi. Emeğin için teşekkürler hocam. Fakat hiçbir tepki vermiyor sayfa bu koda. https://prnt.sc/xa4z9b bende bir sıkıntı yok hocam çalişiyor ilk yolladığım makroyla denediğinde çalişiyor mu? Benim Excel İngilizce olduğu için Türkçe karakteri tanımadı. Tanımlandi yazınca tanıdı sonunda ki ı i farklı olayı. Bu şekilde çalışıyor yani teşekkür ederim. Bir ricam daha olacak tamamlandı dışındakiler olacaktı bu formül tamamlandı ları sayıyor. İş yerinde olduğum için çok ulaşımım yok onada bir el atar mısın hocam?

Private Sub Worksheet_SelectionChange Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son If Cells = "Tamamlandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub sayfaya kodu grüntüle diyip bunu yapıştırırsan otomatik yapar işlemi. In every job there is a no

yNsr bunu yazdı iLLuMiNaTi bunu yazdı Hayır hani "tamamlandı" yazanlar dışında ki numaraları e2 hücresine aralarında virgül olacak şekilde yazdırmıştık ya Yan yana. İşte yan yana yazan sayılardan herhangi birine tıklayınca ilgili satıra kayacak sayfa. Mesela e2 hücresinde 4,37,83 yazıyor diyelim. E2 hücresinde ki 37 ye tıklayınca sayfa direk 37. İlgili satıra kaysın. benim bildiğim bir hücreye birden fazla kprü veremiyorsun o dediğini dolayli yoldan yapabiliriz. Anladım hocam. Teşekkür ederim emeklerin için. https://dosya.co/dro4l8racspd/dolaylı. xlsm.html biraz dolayli oldu ama işini grürse kendi dosyana uyarlarsin eksik alanlara gitmek istediğinde nce makroya tıklayip "E" de yazanlari "I4" e hücre hücre ayiriyorsun sonra yeşil blümden gitmek istediğin yeri seçip git e tıklıyorsun işini grürse kullanırsın. 4. satırı gizlersen grüntü kirliliğide olmaz :) yNsr tarafından 20/Oca/21 22:32 tarihinde düzenlenmiştir In every job there is a no

yNsr bunu yazdı iLLuMiNaTi bunu yazdı yNsr bunu yazdı Private Sub Worksheet_SelectionChange Application. ScreenUpdating = False son = Cells . End(3). Row For i = 1 To son If Cells = "Tamamlandı" Then If i = son Then metin = metin & Cells Else metin = metin & Left(Cells , 2) & "," End If End If Next i Range("E2") = metin Application. ScreenUpdating = True End Sub sayfaya kodu grüntüle diyip bunu yapıştırırsan otomatik yapar işlemi. Emeğin için teşekkürler hocam. Fakat hiçbir tepki vermiyor sayfa bu koda. https://prnt.sc/xa4z9b bende bir sıkıntı yok hocam çalişiyor ilk yolladığım makroyla denediğinde çalişiyor mu? Benim Excel İngilizce olduğu için Türkçe karakteri tanımadı. Tanımlandi yazınca tanıdı sonunda ki ı i farklı olayı. Bu şekilde çalışıyor yani teşekkür ederim. Bir ricam daha olacak tamamlandı dışındakiler olacaktı bu formül tamamlandı ları sayıyor. İş yerinde olduğum için çok ulaşımım yok onada bir el atar mısın hocam? If Cells <> "Tamamlandı" Then olarak değiştir. In every job there is a no

Grmüş olduğunuz gibi 2. Ve 4. Maddelerde tamamlandı yazmıyor. İşte durum kısmında tamamlandı yazmayan tüm satırların No ları yukarıda kontrol edilmesi gereken maddelerin numaraları kısmında gsterilecek virgül ile ayrılarak.