Aylara göre özel yapıştır (Belirli aralıklarla)

[unur]

Merhabalar;
Formu yeni keşfettim yazmaya bir türlü fırsatım olmadı.
Arkadaşlar aşağıdaki kodları bir arkadaştan aldım.Anladığım kadarıyla ayına görebelirli bir hücreden başlayıp tüm kolonu kopyalayıp değerlerini yapıştırıyor.
Bu kodlardan esinlerek şunu yapmak istiyorum
Belirli bir satırdan başlayarak 35 satırı kopyalayıp değerleri yapıştırsın arada 15 satır atlasın tekrar 35 satırı kopyalayıp değerleri yapıştırsın 15 satırda uygulamasın bu şeklinde devam etsin.Tabi hangisatırdan başlayacağını,kaç satırda işlem yapıp kaç satır atlayacağınıda ben belirleyebilmeliyim.
Þimdiden tüm arkadaşlara teşekkürler

Sub degerleriyapistir()
Sheets("EmekliKes").Select
Dim i, a As Integer
i = Month(Date) + 9
a = Cells(65536, i).End(xlUp).Row
With ActiveSheet
.Range(Cells(5, i), Cells(a, i)).Select
Selection.Copy
.Cells(5, i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Selection.Interior.ColorIndex = 1
' Selection.Font.ColorIndex = 8
Application.CutCopyMode = False
.Cells(7, i).Select
MsgBox ActiveCell.Offset(-2, 0).Value & " Ayı Emekli Kesenekleri Başarıyla Aktarıldı"
End With
End Sub

 

[abazya]

merhaba : unur

Hoş geldin bu vereceğim linkte makro nasıl yapılır anlatılıyor

http://www.excel.web.tr/viewtopic.php?t=11000

Ã?nce oku sonra kaydet makrosu ile o bütün söylediklerini uygula. Yani sesi nasıl kayıt edip tekrar dinleye biliyorsan yaptığın hareketlerin kaydedilmesi olayınada makro kaydetme deniyor.

 

[unur]

İyi akşamlar abazya
Son parağraftaki gibi kodlarımı oluşturdum.Benim esas sorunum yada daha doğrusu sorum aşağıdaki idi il sorumdaki kodlar bir şekilde aşağıdaki sorumun cevabını vermiş ama dediğim gibi belirli aralıklara işlem yhapıp belirli aralıklara yapmadığı zaman olucak veya
aşağıdaki soruma cevap alabilirsem bu işi halletmiş olucam.
bu arada vermiş olduğunuz linkte gerçekten mükemmel bilgiler var bunları okuyarakta kendimi bilgilendirecem tabiki.Ama şimdi bunun için internette zamanım kısıtlı


Ne derece mantıklı bilmiyorum; olursa her ay çektiğim eziyeti sona erdirecek
Aşağıdaki kodları sadece örnek olması açısından verdim.
Bu kodlardaki B kolonu her ay değişiyor yani bir sonraki ay C bir sonraki ay D vs..
Ben her ay bunları bir şekilde değiştiriyorum.
Acaba ben bunu çalıştığım sayfada örn:A1 hücresine B,C,D yazmakla bu işi halledebilirmiyim?
Teşekkürler

Range("B3:B17").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B22:B36").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
Range("B41:B42").Select

 

[abazya]

Anladım bu seferlik siz yapın daha sonra çalışmalarımızda detaylarına inelim diyorsun. Peki sen örneğini gönder ben olmasam bile birileri yapar. (Ataç olarak ekle)

Bu sıralar bende istediğim sıklıkta sitede bulunamıyorum.

 

[unur]

Sayın abazya sanki biraz yanlış anlaşıldım gibi
Þimdilik siz yapın gibi bir talebim yok
Sadece yapmak isteyipte yapamadığım bir konu için formdan yardım istedim o kadar
Oda şu:Aşağıdaki kodlarda kırmızı olan B leri kod sayfasına girmeden A1 hücresine C yazarak veya D yazarak değiştirebilirmiyim.
Teşekkürler



Range("B3:B17").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B22:B36").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
Range("B41:B42").Select

 

[Levent Menteşoğlu]

Değiştirebilirsiniz, aşağıdaki gibi deneyin.

Range("B3:B17").Select

yerine

Range([a1] & 3 & ":" & [a1] & 17).Select

 

[unur]

Teşekkürler leventm
Yarın işyerinde ilk işim bunu denemek olucak