excel satır atlatarak yazma

[somefrom]

iyi günler arkadaslar ..benim exxelle ilgili bir problemim var dogru yere mi acıyorum bilmiyorum yardımcı olan arkadaslara şimdide tesekkğrler... soruma gelince...

benim elimde 700 küsür ard arda yazılı metinler var yani örnekl su sekil..

aaaaaa-aaaaaa
bbbbbb-bbbbbb
cccccc-cccccc
dddddd-dddddd
eeeeee-eeeeee
fffffffff-ffffffffff
ggggggg-gggggg

bu sekil ard arda sıralı olarak kayıtlılar ben şimdi bunları su sekil yapmak istiyorum..

aaaaaa-aaaaa
bbbbbb-bbbbbb
123456-123456
cccccc-cccccc
dddddd-dddddd
123456-123456
eeeeee-eeeeee
fffffffff-ffffffffff
123456-123456


yani 2 satır atlayarak istedigim kelimeyi cıkarmak istiyorum örnekteki gibi 123456 2 satır atlayarak yazsın istiyorum bunu nasıl yapablirim...

 

[snx111]

makroyla mümkün dosya yüklerseniz makroyu yazarım

 

[somefrom]

makroyla mümkün dosya yüklerseniz makroyu yazarım

makro derken farklı bir program mı yüklücem..kusura bakma pek anlamıyorumda

 

[mersilen]

Merhaba inceleyin

Site içerisinde makroların nasıl yapıldığını ve uygulandığını da inceleyin

Sub ekle()
i = 1
son = Cells(Rows.Count, "A").End(xlUp).Row
git:

For i = i To son
If i Mod 3 = 0 Then Cells(i, "a").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove: Cells(i, "a") = "123456-123456"
Next i

If son = Cells(Rows.Count, "A").End(xlUp).Row Then Exit Sub
son = Cells(Rows.Count, "A").End(xlUp).Row: GoTo git

End Sub

Sub ekle1()
i = 1
son = Cells(Rows.Count, "A").End(xlUp).Row
Cells(1, 2) = son
git:
For i = i To son
If i Mod 3 = 0 Then Cells(i, "a").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove: Cells(i, "a") = "123456-123456"
Next i
Cells(1, 3) = Cells(Rows.Count, "A").End(xlUp).Row
If son <> Cells(Rows.Count, "A").End(xlUp).Row Then son = Cells(Rows.Count, "A").End(xlUp).Row: GoTo git
End Sub

 

[somefrom]

mersilen verdigin xlsm dosyasını 123456 olarak butonlamıssın...bende bu sekil istiyordum yanlız onu su sekilde yeniden kodlayıp gönderirsen cok minnettar kalırım sana

1234567890:1234567890

bu sekilde yapıp gönderebilirmisin kardesim...

edit : bir de bunu nasıl yapıldıgının konusu varsa onun linkini atabilirmisin ben bulamadımda forumda

 

[mersilen]

If i Mod 3 = 0 Then Cells(i, "a").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove: Cells(i, "a") = "123456-123456"

Kırmızı yere istediğinizi yazabilirsiniz.

If i Mod 3 = 0 Then Cells(i, "a").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove: Cells(i, "a") = "1234567890:1234567890"

http://www.excel.web.tr/f182/

 

[somefrom]

Kırmızı yere istediğinizi yazabilirsiniz.

bu kodu nasıl kullanacagımı bilmiyorum ki konusunu bulamadım excelde yeniyimde bir iş için lazım oldu

edit verdigin yerdeki videoları izleyemiyorum en son istedigim sekil yaparmısın sana zahmet

 

[mersilen]

4. mesajımdaki dosyayı istedğiniz şekilde güncelledim.

sayfa adı üzerinde iken sağ klik yapıp kodları görüntüleyin dedikten sonra istediğiniz şekilde değiştirebilirsiniz.

 

[somefrom]

cok tesekkür ederim sana yardımların için tesekkürler...hakkkını helal et kardesim..konu kapatılabilir