Satır açma ve hücre kopyalama-taşıma

[iulukut]

Merhaba,
A sütunundan N sütununa kadar ve aşağıdaki satırlara bilgiler girilidir. Yapılmak istenen:
1) Her satırın altına 2 boş satır açılacak
2) Açılan 1.satırda A sütununa A sütunu kopyalanacak, B sütununa K sütunu taşınacak, C sütununa L sütunu taşınacak, D sütununa D sütunu kopyalanacak, E sütununa E sütunu kopyalanacak, F sütununa F sütunu kopyalanacak, G sütununa H sütunu taşınacak.
3) Açılan 2.satırda A sütununa A sütunu kopyalanacak, B sütununa M sütunu taşınacak, C sütununa N sütunu taşınacak, D sütununa D sütunu kopyalanacak, E sütununa E sütunu kopyalanacak, F sütununa F sütunu kopyalanacak, I sütununa I sütunu kopyalanacak.

Hazırlayacağınız makro için şimdiden teşekkürler.

 

[bedersu]

Sayın iulukut,
Sorunuzu tam olarak anlayamadım.Biraz daha açıklar mısınız?
Mesela her satırın altına 2 satır eklenecek diyorsunuz ama toplamda kaç satır var bu önemli mi yoksa satır sayısını da mı makroyla okutup ona göre ikişer satır eklenecek?
Ayrıca 1.satırda A sütununa A sütunu kopyalanacak demişsiniz.Yani açılan ilk satıra yani A2,B2,C2.... hücrelerine A1,A3,A4.....hücreleri mi kopyalanacak?Bunu yapsak bile B sütununa K sütunu taşınacak demişsiniz.Döngüsel bir başvuru olur ve veriler değişir bu şekilde.Soruda bir yanlışlık var sanırım.Dosya eklerseniz daha açıklayıcı olacak sanırım. O zaman yardımcı olmaya çalışırız İnşallah.

 

[iulukut]

Sayın bedersu,
Dosyada soldan sağa A sütunundan N sütununa kadar ve aşağıya doğru (satır sayısı bilinmiyor) bilgiler girilmiş durumda.
1) Kaç satır olduğu önemli değil, çünkü satır sayısı değişebilir.(Mesela 10000 satır olsun) İstenen her satırın altına 2 satır açılması
2) Açılan 1.satırda A2 sütununa A1 sütunu kopyalanacak, B2 sütununa K1 sütunu taşınacak, C2 sütununa L1 sütunu taşınacak, D2 sütununa D1 sütunu kopyalanacak, E2 sütununa E1 sütunu kopyalanacak, F2 sütununa F1 sütunu kopyalanacak, G2 sütununa H1 sütunu taşınacak.
3) Açılan 2.satırda A3 sütununa A2 sütunu kopyalanacak, B3 sütununa M1 sütunu taşınacak, C3 sütununa N1 sütunu taşınacak, D3 sütununa D2 sütunu kopyalanacak, E3 sütununa E2 sütunu kopyalanacak, F3 sütununa F2 sütunu kopyalanacak, I3 sütununa I1 sütunu kopyalanacak.
Bu döngü her 3 satırda bir devam edecek.
Teşekkürler

 

[tahsinanarat]

sayfanın birinde mevcut satırınız(bir veya bir kaç satır), diğer sayfadada olmasını istediğiniz şekilde üç satırınızı gösteren bir örnek dosyanız olsa inanın daha çabuk yanıt gelebilir.

 

[bedersu]

Sayın iulukut,
Sorunuzda hala sıkıntılar var.Sayın tahsinanarat'ın da dediği gibi örnek bir dosya eklemeniz daha iyi olacak.Hala A2 sütunundan bahsediyorsunuz fakat Excel'de A2 diye bir sütun yoktur.A2 hücresi vardır.Bunu bu şekilde algılasak bile mantıksal bir döngü mevcut değil.Verilerin hepsinin tek tek taşınması ya da kopyalanması gerekmektedir.Bunu da yapsak bile ilk döngü çalıştırıldığında elinizde bir satır olsa,bu satır 3 satıra çıkacak,veriler işlenecek,döngü bitecek,sorun yok.Fakat kodlar ikinci kez çalıştırıldığında satır sayısı 9 olacak,ilk 3 satırda işlem uygulanacak fakat 5.ve6. satırlar boş kalacak ve bu her işlemde artacak.
Örnek bir dosya ile tam olarak amacınızı açıklamanız cevap gelmesini sağlayabilir sanıyorum.

 

[iulukut]

Açıklamalarımda hücre yerine sütun kelimelerini kullandığım için özür dilerim.

2) Açılan 1.satırda A2 hücresine A1 hücresi kopyalanacak, B2 hücresine K1 hücresi taşınacak, C2 hücresine L1 hücresi taşınacak, D2 hücresine D1 hücresi kopyalanacak, E2 hücresine E1 hücresi kopyalanacak, F2 hücresine F1 hücresi kopyalanacak, G2 hücresine H1 hücresi taşınacak.
3) Açılan 2.satırda A3 hücresine A2 hücresi kopyalanacak, B3 hücresine M1 hücresi taşınacak, C3 hücresine N1 hücresi taşınacak, D3 hücresine D2 hücresi kopyalanacak, E3 hücresine E2 hücresi kopyalanacak, F3 hücresine F2 hücresi kopyalanacak, I3 hücresine I1 hücresi kopyalanacak.

Ekte örnek.xls dosyası bulunuyor.

Teşekkürler

 

[bedersu]

Sayın iulukut,
Aşağıdaki kodlar sanırım istediğiniz gibi oldu.Kontrol eder misiniz?


Sub Makro1()
'
' Makro1 Makro
'
'son = [B65536].End(3).Row + 1
For i = 2 To 65536 Step 3

Rows(i & ":" & i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & i) = Range("A" & i - 1)

Range("K" & i - 1).Select
Selection.Cut
Range("B" & i).Select
ActiveSheet.Paste

Range("L" & i - 1).Select
Selection.Cut
Range("C" & i).Select
ActiveSheet.Paste

Columns("C:C").EntireColumn.AutoFit

Range("D" & i) = Range("D" & i - 1)

Range("E" & i) = Range("E" & i - 1)

Range("F" & i) = Range("F" & i - 1)
Range("H" & i - 1).Select

Selection.Cut
Range("G" & i).Select
ActiveSheet.Paste

Range("A" & i + 1) = Range("A" & i)

Range("M" & i - 1).Select
Selection.Cut
Range("B" & i + 1).Select
ActiveSheet.Paste

Range("N" & i - 1).Select
Selection.Cut
Range("C" & i + 1).Select
ActiveSheet.Paste


Range("D" & i + 1) = Range("D" & i)
Range("E" & i + 1) = Range("E" & i)
Range("F" & i + 1) = Range("F" & i)
Range("I" & i + 1) = Range("I" & i - 1)
If Cells(i + 2, 1) = "" Then Exit Sub
Next
End Sub