Hücrede veri varsa yazsın yoksa boş geçsin

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar Makro ile D9 ile D 17 arasında veri varsa "-" çizgi işareti koysun, sırasında bu aralıkta veri yoksa koyma nasıl bir makro ile yazılır.
[Alıntı]

    Range ("K9: K17") = "-"

[/ Alıntı]
Böyle yazınca K9 ile K17 arasına çizgi koyuyor, oysa ben D9 ile D 17 arasında veri varsa bu işlemi yapmasını istiyorum teşekkürler.

 

[recepkull]

Bu şekilde deneyin.

Sub deneme()
Dim i As Integer
For i = 9 To 17
If Range("D" & i).Value <> "" Then
Range("K9:K17").Value = "-"
End If
Next i
End Sub

 

[ÖmerFaruk]

Alternatif olsun.

Sub x()
Dim i As Integer
    'Eğer sorunuzda yazdığınız doğruysa bu kısmı kullan
    If WorksheetFunction.CountA(Range("D9:D17")) > 0 Then Range("K9:K17") = "-"
    '
    '
    'D9 da veri yoksa K9="-", D10 da veri yoksa K10="-"  gibi satırlarda işlem olsun diyorsanız bu kısmı kullan
    For i = 9 To 17
        If Cells(i, "D") <> "" Then Cells(i, "K") = "-"
    Next i
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın abilerim ikinizede teşekkür ederim

 

[Hacı Bayram ÖZKAN]

Sayın abim çalışmadı isteğim tam şu idi =EĞER(D9="";"";"-")
D9 dan D17 arasında veri varsa K9 ile K17 arasına - işareti koysun
Yani
=EĞER(D9="";"";"-")
=EĞER(D10="";"";"-")
=EĞER(D11="";"";"-")
"" "" "" bunun gibi makro olacak teşekkürler.

 

[YUSUF44]

Şöyle deneyin:

Sub tire()
    For i = 9 To 17
         If Cells(i, "D") <> "" Then
              Cells(i,"K") = "-"
         Else
              Cells(i,"K") =""
         End If
    Next
End Sub

 

[Hacı Bayram ÖZKAN]

Yusuf bey teşekkür ederim çalıştı. Dua ile kalın.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Test()
    With Range("K9:K17")
        .Formula = "=IF(D9<>"""",""-"","""")"
        .Value = .Value
    End With
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Korhan Hocam size de teşekkür ederim.

 

[Hacı Bayram ÖZKAN]

Yusuf bey merhaba ekli dosyamı siz hazırlamış tınız. Abim. Ancak abi, D13 ve bundan sonraki veriler varsa hesaplama yapmıyor, birde D deki verileri silince hesapla deyince I dakiveriler kalıyor, buna bakar mısın? Teşekkürler.

 

[YUSUF44]

I8 hücresinde aşağıdaki formülü kullanıp aşağı kopyalayın:

=DÜŞEYARA(C8;MESAFE!$B$3:$CF$85;83;0)

ÜCRET_MESAFE_HESAPLA makrosunda Cells(a,"I") olan satırları silin

 

[Hacı Bayram ÖZKAN]

Merhaba Yusuf bey sizin 6 nolu kodu bunu ek yaptım. L yide temizliyor, ancak Cells(i, "I") = "" yapınca neden bunu temizlemiyor. ?
For i = 9 To 17
If Cells(i, "D") <> "" Then
Cells(i, "K") = "-"
Cells(i, "L") = "-"

Else
Cells(i, "K") = ""
Cells(i, "L") = ""

End If
Next

 

[Hacı Bayram ÖZKAN]

Yusuf bey tamam siliyor, sorun kalmadı, SORUN şuymuş, formüller silinmemesi için sayfayı koru yapmıştım, onun için ekleme ve silme işlemini yapmıyormuş sorun çözüldü Teşekkür ederim. Burada bana şunu makro ile yazar mısın "=EĞER(D10="";"";10*D$4)" D9 ile D17 arasında veri varsa D4 deki rakamı 10 ile çarpsın?

Abim teşekkür ederim galiba bunada gerek kalmadı. Korumadaki kilidi kaldırınca oldu, herşey için teşekkür ederim.

 

[Hacı Bayram ÖZKAN]

Yusuf Bey kusura bakmayın şurayı yapamadım yardımcı olur musun?
For i = 9 To 17
If Cells(i, "D") <> "" Then
Cells(i, "K") = "-"
Cells(i, "L") = "-"

Else
Cells(i, "K") = ""
Cells(i, "L") = ""

End If
Next

Burada J sütunu için şunu yapmak istiyorum,
Cells(i, "j") = 43.35 * 10 değerini için D4 hücresini 10 çarpmak istiyorum, burası nasıl düzenlenir.
Cells(i, "j") = Cells( "D4" * 10) yaptım olmadı.

 

[YUSUF44]

Aslında hem makro hem de formülle sayfa koruması yapmanız pek kullanışlı olmamış. Ya hepsini formüllü yapın ya da hepsini makrolu yapın. Bu dosya için bu kadar makro kullanılmasına gerek olmadığını düşünüyorum. Formül ve hücre/sayfa korumayla çözmek daha pratik olurdu.

Makronun ilgili bölümünü aşağıdakiyle değiştirerek deneyin:

    For i = 9 To 17
        If Cells(i, "D") <> "" Then
            Cells(i, "K") = "-"
            Cells(i, "L") = "-"
            If Cells(i, "E") = "Kendisi" Then
                Cells(i, "J").FormulaR1C1 = "=IF(RC[-6]="""","""",20*R[-4]C[-6])"
            Else
                Cells(i, "J").FormulaR1C1 = "=IF(RC[-6]="""","""",10*R4C[-6])"
            End If
        Else
            Cells(i, "K") = ""
            Cells(i, "L") = ""
        End If
    Next

 

[Hacı Bayram ÖZKAN]

Teşekkür ederim. Abim