Kopyalama

[focus20]

Linkte dosyanın içinde anlattım arkadaşlar yardımcı olursanız sevinirim. http://s6.dosya.tc/server10/77tg9i/VBALETO.xlsx.html

 

[Orion1]

Kısaca anlatsanız iyi olurdu.İlgisini çekenlerler dosyayı indirilerdi.

 

[çıtır]

Sub kes()
Application.ScreenUpdating = False
For i = 1 To Range("L65536").End(3).Row Step 2
If Cells(i + 1, 12) <> "" Then
Range(Cells(i + 1, 12), Cells(i + 1, 15)).Select
Selection.Cut
Cells(i, 16).Select
 ActiveSheet.Paste
 End If
Next i
Application.ScreenUpdating = True
End Sub

 

[klop01]

Sayın Çıtır İyi Geceler,
VBA ile ilgili bilgilerim neredeyse sıfır düzeyinde.
Bir şey merak ediyorum.
Yukarıda yazdığınız kodları nasıl yazıyorsunuz?
Makro kaydetme dışında ise bu nasıl oluyor? Zira makro kaydederken kendi bir şeyleri yazıyor.
Bazen çok uzun kodlar görüyorum forumda hep merak ettim bu konuyu.

 

[focus20]

Çıtır teşekkürler sağolasın.

 

[çıtır]

Çıtır teşekkürler sağolasın.

Rica ederim.Kolay gelsin.