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

Tahribat.com Forumları
line

Bilgisayarla İlgili Diğer Konular
line

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

19/Oca/21 21:14 Kısayol Şikayet Özel Mesaj

iLLuMiNaTi

Kayıt Tarihi: 08/Mart/2007

Aşağıda görmüş 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

Alıntı yap
19/Oca/21 21:59 Kısayol Şikayet Özel Mesaj

Çömez
underzero

Kayıt Tarihi: 20/Ocak/2003

Bir örnek yükleyebilir misin?

Birde biraz daha acik yazabilir misin, cok anlamadim.

pist bak bi ! - Ban Golu Canavari

Alıntı yap
19/Oca/21 22:00 Kısayol Şikayet Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

yapmak istediğini tam anlayamadim dosyayi atsan daha açıklayici olur.

In every job there is a no

Alıntı yap
19/Oca/21 22:05 Kısayol Şikayet Özel Mesaj

motka

Kayıt Tarihi: 28/Ekim/2012

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 görür gibi.
motka tarafından 19/Oca/21 22:09 tarihinde düzenlenmiştir

Alıntı yap
19/Oca/21 22:20 Kısayol Şikayet Özel Mesaj

2021 Talihlisi
TheAvenqer

Kayıt Tarihi: 09/Şubat/2014

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.

Alıntı yap
20/Oca/21 07:52 Kısayol Şikayet Özel Mesaj

iLLuMiNaTi

Kayıt Tarihi: 08/Mart/2007

Görmüş 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 gösterilecek virgül ile ayrılarak.

Alıntı yap
20/Oca/21 09:45 Kısayol Şikayet Özel Mesaj

Çömez
underzero

Kayıt Tarihi: 20/Ocak/2003

Neden ugrasiyorsun ki, filter dan tamamlandilarin isaretini kaldirsan bütün digerlerini gösterecektir.

pist bak bi ! - Ban Golu Canavari

Alıntı yap
20/Oca/21 10:20 Kısayol Şikayet Özel Mesaj

iLLuMiNaTi

Kayıt Tarihi: 08/Mart/2007

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

Alıntı yap

20/Oca/21 11:36

Kısayol

Şikayet

Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

iLLuMiNaTi bunu yazdı

Görmüş 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 gösterilecek virgül ile ayrılarak.

Sub tamamlandı()
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

In every job there is a no

Alıntı yap

20/Oca/21 11:52

Kısayol

Şikayet

Özel Mesaj

yNsr

Kayıt Tarihi: 24/Nisan/2007

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.

In every job there is a no

Alıntı yap

20/Oca/21 12:16

Kısayol

Şikayet

Özel Mesaj

iLLuMiNaTi

Kayıt Tarihi: 08/Mart/2007

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.

Alıntı yap

Toplam Hit: 2380 Toplam Mesaj: 22
excel

Cevapla