hücre atla ve bilgileri yapıştır

[dangerboys35]

Merhaba

H sütunundaki verileri c sütununa satırları atlayarak

yapıştırmasını istiyorum

Teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub atla()
Dim sat As Long, i As Long
Sheets("Sheet1").Select
Application.ScreenUpdating = False
sat = Cells(65536, "B").End(xlUp).Row
For i = 2 To sat
    If UCase(Cells(i, "B").Value) <> "TOPLAM" Then _
    Cells(i, "C").Value = Cells(i, "H").Value
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır" & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[dangerboys35]

h sütununa girdiğim verileri kopyalayıp
c sütununa sarı olan hücreler hariç yapıştırmak istiyorum

bu kodla olmuyo
yanlışmı anlattım

 

[Orion1]

h sütununa girdiğim verileri kopyalayıp
c sütununa sarı olan hücreler hariç yapıştırmak istiyorum

bu kodla olmuyo
yanlışmı anlattım

Yanlış anlamışım.Sarı hücreleri kopyaldım.
Dosyayı tekrardan düzelltim.
2 numaralı mesajdan indirebilirsiniz.

 

[dangerboys35]

çok teşekkürler
yardımlarınız için