şarta göre hücreye bir ilave etme

[spacebar]

Değerli üstadlarım yapmak istediğim: Sonraki butonuna bastığımda :
M2 hücresinde "Tamamlandı" ve N2 hücresinde Görünmesin yazıyorsa
J6 ya bir ilave etsin. Ancak ilave ettiği rakamda da tamamlansın yazıyorsa yine bir ilave etsin.
örneğin : 7 den 11 e gitmesi gerekiyor.
bir başka anlatımla : 1 - 4 - 5 - 7 - 11 - 13 görünmeli
desteğiniz için şimdiden teşekkürler..

 

[Ömer]

Merhaba,

Deneyiniz.

Sub ekle()
    
    Dim Sd As Worksheet, d As String, i As Long, c As Range
    
    Set Sd = Sheets("data")
    
    d = UCase(Replace(Replace([N2], "ı", "I"), "i", "İ"))
    
    If d = "GÖRÜNMESİN" Then
        For i = [J6] + 1 To Sd.Cells(Rows.Count, "A").End(xlUp).Row
            Set c = Sd.[A:A].Find(i, , xlValues, xlWhole)
            If Not c Is Nothing Then
                If Sd.Cells(c.Row, "C") <> "Tamamlandı" Then
                    [J6] = i
                    Exit Sub
                End If
            End If
        Next i
    End If
    
End Sub

 

[spacebar]

üstad mükemmel çalışıyor. çok teşekkür ederim. ellerinize sağlık. sağlıklı günler dilerim...

 

[spacebar]

üstad merhaba. tekrar rahatsız ediyorum.
If Sd.Cells(c.Row, "C") <> "Tamamlandı" Then satırını form sayfasındaki M2 hücresinden alacak şekilde nasıl düzenleyebiliriz. teşekkürler...

 

[Ömer]

M2 hücresi, J2 hücresine gelen değere göre şekillendiği için kodların bu dizaynına istediğiniz uymaz.

Neden böyle bir şey istediniz?

 

[spacebar]

üstad asıl çalışmamda form sayfasında onay kutularından gelen doğru/yanlış değerine göre "tamamlandı" yazmıştım. kodları "tamamlandı" yerine "doğru" diye revize ettiğimde çalışmadı. bu yüzden M2 hücresinin değerine göre düzenlemek istedim.

 

[Ömer]

Son mesajınızı doğru anladıysam;

If Sd.Cells(c.Row, "C") <> "Tamamlandı" Then

yerine

If Sd.Cells(c.Row, "C") <> True Then

yazarak deneyin.

Eğer olmazsa son mesajınızda istediğiniz "Tamamlandı" yerine Range("M2") yazarak deneyin.

Yinede olmazsa dosyanızı görmek gerekir.

.

 

[spacebar]

tamam üstad. birinci seçenek sorunsuz çalışıyor. ellerinize sağlık. ilginize çok teşekkür ederim.