Tüm Hücreler Boşsa Değer Atama

[yakup123]

arkadaşlar merhaba bir konuda takıldım basit bir işlemim var

A1:B1:C1: D1:E1:F1:G1 diye hücrelerim olsun ben bir aralık veriyorum kodumda örneğin 3 sütundan 6 sütuna kadar boşsa o alana X yaz diyorum
ancak ilk 2 satır boşson satır dolu ise ilk 2 sine x yazıyor ben istiyorumki belirttiğim aralığın tümü boşsa yazsın kodumdaki yanlışlık nedir acaba ?

On Error Resume Next
For sütun = 1 To 10
For satır = 2 To 50

If Cells(satır, sütun).Value = "" Then
Cells(satır, sütun).Value = "x"
End If

Next satır
Next sütun

 

[Muzaffer Ali]

Bu kodları önce boş mu diye kontrol etmek için kullanmalısınız

On Error Resume Next
For sütun = 1 To 10
For satır = 2 To 50

If Cells(satır, sütun).Value [COLOR="DarkOrange"]<> ""[/COLOR] Then 'Herhangi bir hücre doluysa
[COLOR="DarkOrange"]exit sub [/COLOR] 'Kodların çalışmasını durdur.
End If
.
.
.

next
next

'Aynı kodları devamında tekrar yazmalısın bu sefer X yazmak için

For sütun = 1 To 10
For satır = 2 To 50

If Cells(satır, sütun).Value = "" Then
Cells(satır, sütun).Value = "x" 
End If
.
.
.
next next

 

[Necdet]

Merhaba,

Değişik döngü ile seçenek olsun.
İlk For Each döngüsünde belirli bir alanda uygulanır, ikinci döngüde ise sadece seçtiğiniz bölümde çalışır.

Sub Doldur()
    
    Dim Hcr As Range
    
    For Each Hcr In Range("C1:K10")
        If Hcr = "" Then Hcr = "x"
    Next Hcr
    
'    For Each Hcr In Selection
'        If Hcr = "" Then Hcr = "x"
'    Next Hcr
    
End Sub

 

[yakup123]

çok teşekkür ederim ellerinize sağlık tam istediğim gibi

 

[yakup123]

hocam tekrar merhaba
2 kodda yıne hücre doluysa boşları dolduruyor dolu olan alanda işlemi sonlandırıyor ben bulunduğu satır aralığında dolu varsa işlemi yapmasın istiyorum örneğin

A1 boş B1 boş C1 Dolu olsun o satırda işlem yapmayacak
tümü boşsa yapacak bu üstteki kodlar
A1 boş B1 boş C1 Dolu olunca
A1 ve B1 e x yazıyor

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

7 değeri A-G sütunları arasındaki hücre sayısını ifade eder. Kendi verilerinize göre revize edersiniz.

Option Explicit

Sub DOLDUR()
    Dim Satir As Integer
    
    For Satir = 1 To 50
        If WorksheetFunction.CountBlank(Range("A" & Satir & ":G" & Satir)) = 7 Then
            Range("A" & Satir & ":G" & Satir) = "X"
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yakup123]

Korhan hocam çok teşekkür ederim çalıştı

 

[emsey]

Selamlar herkese,
bende aşağıdaki kodda takıldım istediğimi beceremedim yardımcı olabilirseniz çok memnun olurum.

b11 hücresi ile b1000 arasında boşsa, yani bu aralığı bir şey girilmemişse veri girişi yapılmadığını söyletmeye çalışıyorum takıldım kaldım. Hata veriyor kabul etmiyor.

If Len(Range("b11:b1000")) = "" Then
MsgBox "Veri girilmemiş. ", vbCritical, "DİKKAT"
End If

 

[ÖmerFaruk]

If WorksheetFunction.CountA(Range("B11:B1000")) = 0 Then

 

[emsey]

If WorksheetFunction.CountA(Range("B11:B1000")) = 0 Then

Teşekkür ederim üstad eline sağlık