Koda sil makrosu eklemek

[mesutaygun70]

Public Sub sonucyaz()
Dim SY As Worksheet
Dim SK As Worksheet
Dim S1 As Worksheet
Set SY = Sheets("veri")
Set S1 = Sheets("form")
For i = 2 To S1.[a65536].End(3).Row
If SY.Range("a1") = S1.Cells(i, "b") Then
sütun = WorksheetFunction.CountA(S1.Range("z" & i & ":z" & i))
If sütun = 1 Then

Else
sütun = sütun + 26
S1.Cells(i, sütun) = SY.Range("a19")
End If
End If
Next i
End Sub

Yukardaki gibi kodum var. Ama ilgili hücre doluysa kod herhangi bir işlem yapmıyor. " If sütun = 1 Then" sonra end sub kısmına geçiyor. Eğer hücre doluysa sutun + 26 silip işleme devam etmesini istiyorum. Ne kadar uğraşsamda yapamadı yardımcı olabilirmisiniz.

 

[hamitcan]

Bu şekilde deneyin.

If sütun = 1 Then
Set Rng = Columns(sutun).EntireColumn.Resize(, 26)
Rng.Delete
Else

 

[mesutaygun70]

Bu şekilde deneyin.

If sütun = 1 Then
Set Rng = Columns(sutun).EntireColumn.Resize(, 26)
Rng.Delete
Else

Set Rng = Columns(sutun).EntireColumn.Resize(, 26) Kısmı sarı dolgu rengi ile işaretlendi (dosya ekleyemiyorum kusura bakmayın)

 

[GursoyC]

Herhangi bir dosya paylaşım sitesine ( örneğin dosya.co ) dosyanızı koyun, linkini burada paylaşın. Alacağınız yardım çok hızlanacaktır.

 

[Haluk]

Bu şekilde deneyin.

If sütun = 1 Then
Set Rng = Columns(sutun).EntireColumn.Resize(, 26)
Rng.Delete
Else

sutun >>>> sütun


Kodlarda, dosya isimlerinde, sayfa adlarında .... her yerde, Türkçe karakter kullanma alışkanlığını bırakmak yararlı olur.

.

 

[hamitcan]

Tebrik ederim Haluk Bey. MaşAllah gözleriniz kuvvetli.

 

[Orion1]

sutun >>>> sütun


Kodlarda, dosya isimlerinde, sayfa adlarında .... her yerde, Türkçe karakter kullanma alışkanlığını bırakmak yararlı olur.

.