Klasör İçindeki Fotografları Sayma

(22/04/2020, 11:01)feraz yazdı: ilgili kodu alttaki ile değiştirin.Mantık şöyle;textbox1 ve textbox2 ye bakar ve ilk boş karakterden öncesini alır varsa şaet bolşluk yoksa textbox boş olur.
İstiyorsanız en alta gelen yeşil renkli yeri kaldırabilirim.

Sub ilkVeSonKlasor()



    Dim son As Long, bul As Integer, bul2 As Integer

    Dim txt1 As MSForms.TextBox, txt2 As MSForms.TextBox

    

    Set txt1 = Me.TextBox1

    Set txt2 = Me.TextBox2

    

    With Sheets("ANA SAYFA")

        son = .Cells(Rows.Count, 1).End(3).Row

        If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) > 2 Then

            txt1.Value = .Cells(4, "A").Value

            txt2.Value = .Cells(son - 1, "A").Value

            bul = InStr(1, txt1.Value, " ")

            bul2 = InStr(1, txt2.Value, " ")

            If bul > 0 Then txt1.Value = Mid(txt1.Value, 1, bul - 1) Else txt1.Value = Empty

            If bul2 > 0 Then txt2.Value = Mid(txt2.Value, 1, bul2 - 1) Else txt2.Value = Empty

        End If

    End With

    

    Set txt1 = Nothing

    Set txt2 = Nothing

End Sub

Yukardaki koddaki ilgili yeri alttaki gibi değiştirirseniz 0(sıfır) larda eklenir
J ve K sütununa.

If WorksheetFunction.CountA(.Range("H" & i & ":I" & i)) > 0 Then

                If .Cells(i, "H").Value + .Cells(i, "I").Value < 700 Then

                  .Cells(i, "J").Value = 1

                  .Cells(i, "K").Value = 0

                ElseIf .Cells(i, "H").Value + .Cells(i, "I").Value >= 700 Then

                    .Cells(i, "K").Value = 1

                    .Cells(i, "J").Value = 0

                End If

            End If

Hocam ellerine sağlık gayet başarılı çalışıyor son halini ekliyorum sonsuz teşekkürler

Rica ederim,istiyorsanız Rp.2020-130 Svap içindeki resim olmayan uzantı olayınıda yapabiliriz.

teşekkürler hocam ben excelde 0 değerlerini pek sevmiyorum görüntü kalabalığı gib geliyor bana yinede ilgin için teşekkürler

Heralde bir dosyada yazmıştınız,yorumları okudum bulamadım.
Dosyada yada yorumda yazdığınız için söylemiştim.Ayrıca Excel ayarlarında sıfır değerini gösterme gibi bir seçenek var orayıişaretlenince sıfır olanlar gösterilmez.

Haberiniz olsun diye yazayım resimdeki yeri hangi sayfada değiştirirseniz o sayfada sıfırlar gösterilmez.