Dongude problem

[Kemal Demir]

Selam
Başlık Biraz Olmadı ama;

Sub bosal()
For i= 2 to 25
For k=2 to 25

if Range("b"&k)="" Then
Range("c"&i)=Range("c"&i)
End if
Next
Netx
End sub

Arkadaslar burada b kolonunda boş olan değerleri
aynı sıradaki c kolonundan değerleri almasını istedim ama zannedersem kodda bir hata var(bende hata var)
yardımcı olursanız sevınınırım.

Saygılar.

 

[Kemal Demir]

Sub bosal()
For i= 2 to 25
For k=2 to 25

if Range("b"&k)="" Then
Range("c"&i)=Range("b"&i)
End if
Next
Netx
End sub

demin burası yanlıs yazılmıstı doğrusu kırmızı renkli olandır

Ama Sorun hala mevcut
Yardım pls

 

[danersin]

Bu şekilde bir denermisiniz, istediğiniz bumu.
Sub bosal()
For i = 2 To 25
If Range("b" & i) = "" Then
Range("b" & i) = Range("c" & i)
End If
Next i
End Sub

 

[conanait]

Sub bosal()
For k= 2 to 25
For i=2 to 25

if Range("b"&k)="" Then
Range("b"&i)=Range("c"&i)
End if
Next
Netx
End sub

b sütunu c sutunundan bilgi alacak gibi anladım, umarım yardımcı olur

 

[red_lion_72]

For i = 1 To 25

If Sheets(1).Cells(i, 2) = "" Then
Sheets(1).Cells(i, 2) = Sheets(1).Cells(i, 3)
End If

Next i

 

[Kemal Demir]

cok tesekkur ederim arkadar