[Yardım]  Kod Sadeleştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kod Sadeleştirme

İleti#1)  erseldemirel2 » 16 May 2019 16:15

Arkadaşlar aşağıdaki kodda özetle 1'den 100'kadar satırdaki AF İLE AV Sütunları arasındaki değerler boş ise "-" ibaresini yerleştiriyor. Ancak kod çok uzun. Bu kod kısaltılabilirmi? Teşekkürler.

Kod: Tümünü seç
Sub jj()

For i = 1 To 100
If Sheets("1.LİSTE").Range("AF" & i) = "" Then
Sheets("1.LİSTE").Range("AF" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AG" & i) = "" Then
Sheets("1.LİSTE").Range("AG" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AH" & i) = "" Then
Sheets("1.LİSTE").Range("AH" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AI" & i) = "" Then
Sheets("1.LİSTE").Range("AI" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AJ" & i) = "" Then
Sheets("1.LİSTE").Range("AJ" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AK" & i) = "" Then
Sheets("1.LİSTE").Range("AK" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AL" & i) = "" Then
Sheets("1.LİSTE").Range("AL" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AM" & i) = "" Then
Sheets("1.LİSTE").Range("AM" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AN" & i) = "" Then
Sheets("1.LİSTE").Range("AN" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AO" & i) = "" Then
Sheets("1.LİSTE").Range("AO" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AP" & i) = "" Then
Sheets("1.LİSTE").Range("AP" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AQ" & i) = "" Then
Sheets("1.LİSTE").Range("AQ" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AR" & i) = "" Then
Sheets("1.LİSTE").Range("AR" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AS" & i) = "" Then
Sheets("1.LİSTE").Range("AS" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AT" & i) = "" Then
Sheets("1.LİSTE").Range("AT" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AU" & i) = "" Then
Sheets("1.LİSTE").Range("AU" & i) = "-"
End If
If Sheets("1.LİSTE").Range("AV" & i) = "" Then
Sheets("1.LİSTE").Range("AV" & i) = "-"
End If
Next i
End Sub

Kullanıcı avatarı
erseldemirel2
Yeni Başlamış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Kod Sadeleştirme

İleti#2)  serhatyrdmc » 16 May 2019 16:26

Kod: Tümünü seç
Sub jj()

For i = 1 To 100
   
    t = 32
    For t = 32 To 48
    If Sheets("1.LİSTE").Cells(i, t) = "" Then
    Sheets("1.LİSTE").Cells(i, t) = "-"
    Else
    End If
    Next t

Next i

End Sub
Kullanıcı avatarı
serhatyrdmc
Yeni Başlamış
 
Adı Soyadı:Serhat Yardımcı
Kayıt: 28 Mar 2011 21:07
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Cevap: Kod Sadeleştirme

İleti#3)  erseldemirel2 » 16 May 2019 16:37

Teşekkür ederim. Cell uygulamasını daha iyi anladım kolay gelsin
Kullanıcı avatarı
erseldemirel2
Yeni Başlamış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 4 misafir

Bumerang - Yazarkafe