satır atlama

[birkan15]

ekteki dosyada sorunumu anlatmak istedim. kontrol sonucunda a yazarsa satır atlayacak ve işlem oradan devam edecek. tesekkurler

 

[Ömer]

Merhaba,

Sorunuz anlaşılmıyor. Detaylı açıklama yaparmısınız..

.

 

[birkan15]

biraz daha acıklamaya calıstım. sadece kontrol sütununa "a" yazıldıgı zaman sonuc sütünundaki verinin altına dikkat yazacak ve sıralama buna göre yapılacak. tesekkurler...

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. B ve C sütunlarına veri girişi yaptığınızda G sütununa istediğiniz liste otomatik olarak oluşacaktır.

Kullanılan kod; (Sayfanın kod bölümüne uygulayınız.)

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Long
    
    On Error GoTo Son
    
    If Intersect(Target, Range("B3:C65536")) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    Range("G3:G65536").Clear
    
    For X = 3 To Range("B65536").End(3).Row
        If X = 3 And Cells(X, "B") <> "" And UCase(Cells(X, "C")) = "" Then
            Cells(65536, "G").End(3).Offset(1, 0) = Cells(X, "B")
        ElseIf X = 3 And Cells(X, "B") <> "" And UCase(Cells(X, "C")) = "A" Then
            Cells(65536, "G").End(3).Offset(1, 0) = Cells(X, "B")
            Cells(65536, "G").End(3).Offset(1, 0) = "DİKKAT"
            Cells(65536, "G").End(3).Font.ColorIndex = 3
        ElseIf Cells(X, "B") <> "" And UCase(Cells(X, "C")) = "A" Then
            Cells(65536, "G").End(3).Offset(1, 0) = Cells(X, "B")
            Cells(65536, "G").End(3).Offset(1, 0) = "DİKKAT"
            Cells(65536, "G").End(3).Font.ColorIndex = 3
        ElseIf Cells(X, "B") <> "" Then
            Cells(65536, "G").End(3).Offset(1, 0) = Cells(X, "B")
        End If
    Next
 
Son:
    Application.ScreenUpdating = True
End Sub

 

[birkan15]

ilginiz için tesekkur ederim. bunu makrosuz yapma sansımız (fonksiyonlarla) sansımız var mı?

 

[Korhan Ayhan]

Selamlar,

Fonksiyonlarla birkaç deneme yaptım fakat olumlu sonuç alamadığım ve sorunuzun cevapsız kalmaması için makrolu çözüm sundum. Eğer fonksiyonlarla çözümü varsa bende merakla gelecek cevapları bekliyorum.

 

[Ömer]

ilginiz için tesekkur ederim. bunu makrosuz yapma sansımız (fonksiyonlarla) sansımız var mı?

Merhaba,

Eki inceleyiniz..

.

 

[birkan15]

sadece mukemmel diyorum. elinize saglık

 

[Necdet]

Şapka çıkartırım.
Bunları yapmak vba yı öğrenmekten daha zor.

 

[vipereddy]

guzel bir ornek olmus omer bey. elinize saglik