- Katılım
- 8 Aralık 2005
- Mesajlar
- 840
- Excel Vers. ve Dili
-
İş:Excel 2000 Türkçe
Ev:Excel xp Türkçe
- Altın Üyelik Bitiş Tarihi
- 11.06.2022
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
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