Excel Hakkında Küçük Bir Yardım.

20/Oca/21 12:53

Kısayol

Şikayet

Özel Mesaj

Ekerci

Kayıt Tarihi: 14/Ocak/2010

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(", ", true,j:j)

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

Konu ID: 112846 Konuyu Acan : Ekerci Konu Başlığı : Tahribatın en sevdiği adam ? Silinme Sebebi : 3 sayfadır takip ediyorum beni seven kimse çıkmadı. alacağınız olsun müridler

Alıntı yap

20/Oca/21 13:32

Kısayol

Şikayet

Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

iLLuMiNaTi bunu yazdı

yNsr bunu yazdı

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

    son = Cells(Rows.Count, "C").End(3).Row
    For i = 1 To son
    If Cells(i, "C") = "Tamamlandı" Then
        If i = son Then
            metin = metin & Cells(i, "B")
        Else
            metin = metin & Left(Cells(i, "B"), 2) & ","
        End If
    End If
    Next i

    Range("E2") = metin

Application.ScreenUpdating = True
End Sub

sayfaya kodu görü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

Alıntı yap

20/Oca/21 14:14

Kısayol

Şikayet

Özel Mesaj

iLLuMiNaTi

Banlanmış Üye

Kayıt Tarihi: 08/Mart/2007

yNsr bunu yazdı

iLLuMiNaTi bunu yazdı

yNsr bunu yazdı

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

    son = Cells(Rows.Count, "C").End(3).Row
    For i = 1 To son
    If Cells(i, "C") = "Tamamlandı" Then
        If i = son Then
            metin = metin & Cells(i, "B")
        Else
            metin = metin & Left(Cells(i, "B"), 2) & ","
        End If
    End If
    Next i

    Range("E2") = metin

Application.ScreenUpdating = True
End Sub

sayfaya kodu görü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?

Alıntı yap

20/Oca/21 15:06

Kısayol

Şikayet

Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

iLLuMiNaTi bunu yazdı

yNsr bunu yazdı

iLLuMiNaTi bunu yazdı

yNsr bunu yazdı

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

    son = Cells(Rows.Count, "C").End(3).Row
    For i = 1 To son
    If Cells(i, "C") = "Tamamlandı" Then
        If i = son Then
            metin = metin & Cells(i, "B")
        Else
            metin = metin & Left(Cells(i, "B"), 2) & ","
        End If
    End If
    Next i

    Range("E2") = metin

Application.ScreenUpdating = True
End Sub

sayfaya kodu görü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(i, "C") <> "Tamamlandı" Then

olarak değiştir.

In every job there is a no

Alıntı yap

20/Oca/21 15:17

Kısayol

Şikayet

Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

yNsr bunu yazdı

iLLuMiNaTi bunu yazdı

yNsr bunu yazdı

iLLuMiNaTi bunu yazdı

yNsr bunu yazdı

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

    son = Cells(Rows.Count, "C").End(3).Row
    For i = 1 To son
    If Cells(i, "C") = "Tamamlandı" Then
        If i = son Then
            metin = metin & Cells(i, "B")
        Else
            metin = metin & Left(Cells(i, "B"), 2) & ","
        End If
    End If
    Next i

    Range("E2") = metin

Application.ScreenUpdating = True
End Sub

sayfaya kodu görü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(i, "C") <> "Tamamlandı" Then

olarak değiştir.

ama bunu yaparsan sütundaki boşlularıda alir. şu şekil daha iyi olur

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

    son = Cells(Rows.Count, "C").End(3).Row
    For i = 1 To son
    son1 = Cells(i, "C")
    If son1 = "Değerlendirme Aşamasında" Or son1 = "İmzalandı" Then
        If i = son Then
            metin = metin & Cells(i, "B")
        Else
            metin = metin & Left(Cells(i, "B"), 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

Alıntı yap

20/Oca/21 16:19

Kısayol

Şikayet

Özel Mesaj

iLLuMiNaTi

Banlanmış Üye

Kayıt Tarihi: 08/Mart/2007

Ç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

Alıntı yap

20/Oca/21 16:31

Kısayol

Şikayet

Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

iLLuMiNaTi bunu yazdı

Ç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 söylersen. "sayfa1 E2" e tıklayinca orada yazanlari "sayfa2 C4" e kopyalasın gibi bir şey mi istiyorsun ?

In every job there is a no

Alıntı yap

20/Oca/21 16:36

Kısayol

Şikayet

Özel Mesaj

iLLuMiNaTi

Banlanmış Üye

Kayıt Tarihi: 08/Mart/2007

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. (tüm işlemler tek ve aynı sayfada)

iLLuMiNaTi tarafından 20/Oca/21 16:37 tarihinde düzenlenmiştir

Alıntı yap

20/Oca/21 17:54

Kısayol

Şikayet

Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

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. (tüm işlemler tek ve aynı sayfada)

benim bildiğim bir hücreye birden fazla köprü veremiyorsun o dediğini dolayli yoldan yapabiliriz.

In every job there is a no

Alıntı yap

20/Oca/21 20:58

Kısayol

Şikayet

Özel Mesaj

iLLuMiNaTi

Banlanmış Üye

Kayıt Tarihi: 08/Mart/2007

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. (tüm işlemler tek ve aynı sayfada)

benim bildiğim bir hücreye birden fazla köprü veremiyorsun o dediğini dolayli yoldan yapabiliriz.

Anladım hocam. Teşekkür ederim emeklerin için.

Alıntı yap