Klasör İçindeki Fotografları Sayma

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
23/04/2020, 10:34

feraz

(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
24/04/2020, 00:17

akarayilan

Hocam ellerine sağlık gayet başarılı çalışıyor son halini ekliyorum sonsuz teşekkürler
24/04/2020, 01:17

feraz

Rica ederim,istiyorsanız Rp.2020-130 Svap içindeki resim olmayan uzantı olayınıda yapabiliriz.
25/04/2020, 00:57

akarayilan

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
25/04/2020, 03:21

feraz

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.
25/04/2020, 20:36

feraz

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


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15