şayet A hücresi boş iseC hücresini sil

[imyourfate]

Arkadaşlar herkeze hayırlı işler
benim sorunum aşağıdaki kuralagöre bir makro yazmak
''şayet A1 hücresi boş iseC1 hücresini yada sağdan 2. hücreyi sil''

Not:Sütunlar değişebilir olmalı A ve C birer örnektir

Şimdiden teşekkür ediyorum
Saygılarımı sunuyorum

 

[Ömer]

''şayet A1 hücresi boş iseC1 hücresini yada sağdan 2. hücreyi sil''

Merhaba,

Bu şekilde deneyin. Yeşil olan hücre yada olarak belirttiğiniz alternatiftir. Eğer bu bölümü kullanmak isterseniz kırmızı satırı silip yada önüne tek tırnak işareti koyup, yeşil bölümün önündeki tek tırnak işaretini silersiniz.

Sub Sil()
    
    If Range("A1") = "" Then
        [COLOR=red]Range("C1").ClearContents
[/COLOR]        [COLOR=darkgreen]'Range("A1").Offset(0, 2).ClearContents
[/COLOR]    End If
    
End Sub

.

 

[sailorforever]

Eğer A ve C sütunları dediğiniz gibi sabit değilse yani istenilen hücre boş ise iki sütun sağındaki hücrenin silinmesini istiyorsanız çalışma sayfasında yapılan değişiklik ile çalışan bir makro yazmak gereği doğar bu da aşağıdaki gibi olabilir,kontrol edersiniz....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then
Target.Offset(0, 2).ClearContents
End If
End Sub

 

[imyourfate]

Hocam saygılar cok güzel bir çalışma olmuş
Sub Sil()

If Range("A1:A300") = "" Then
Range("C1:C300").ClearContents

End If

End Sub

şeklinde denediğimde sütundaki bir aralık belittiğimde calışmadı neden olabilir?

 

[Ömer]

Merhaba,

Döngü kurmanız gerekir.

Sub Sil()
    
    Dim i As Integer
    
    For i = 1 To 300
        If Cells(i, "A") = "" Then
            Cells(i, "C").ClearContents
        End If
    Next i
    
End Sub

.

 

[imyourfate]

Hocam 10 numara işlem Hayırlı işler,Bol kazançlar