ilk satırı listenin altına almak

[madistyy]

içerikte 12345 olarak insanlar düşünün dugmeye bastiğimiz zaman 1. sıradaki en sondaki kişinin yerine gecicek ve diğer kişiler bir sıra yükselmiş olucak örn. 12345 düğmeye basidii zmn 23451 bir daha basildiinda 34512 gibi :S

 

[uzmanamele]

merhaba

sanırım ek dosya gibi bişey istiyorsunuz,
ilk satırdaki bilgileri listenin altına alıp o satırı yeni veri girişi için siler, inceleyiniz.

Sub altaindir()
ss = Cells(65536, 3).End(3).Row
Range("C4:H4").Copy Range("c" & ss + 1 & ":" & "h" & ss + 1)
    Application.CutCopyMode = False
Range("C4:H4").ClearContents
End Sub

 

[Necdet]

Merhaba,

Sorunuzu dosyanın içinde açıklayın ona birşey demiyorum ama kısa bir ön açıklama yaparsanız ilgilenen arkadaşlarımız çoğalabilir.

Sub KesYapistir()
    Range("C4:H4").Cut
    Range("C" & [C65536].End(3).Row + 1).Insert Shift:=xlDown
End Sub

 

[madistyy]

ewet bu tarz bir sey ama ali hakkının yerine gecicek we 2.sıradaki adam 1. siraya gecmiş olucak yani ali hakkının yerine gecicek hakkı huseyinin huseyin hasanin hasan welinin.

dugmeye bastiğmiz zaman ali en alta gecicek ama isimleri 12345 diye siralarsak
12345 ken dugmeye basında 23451 birdaha bastiimda 34512 gibi bi dongü olmasi lazim :S

 

[madistyy]

hocam cok tşk ederim...

 

[madistyy]

hocam ali@kocaeli.net eklerseniz bi ricam olucak

 

[Necdet]

Merhaba,

Lütfen Özel Mesaj İle soru sormayınız, sorunuzu foruma sorunuz.

Sub KesYapistir()
    Application.AlertBeforeOverwriting = False
    Range("A5:Q5").Cut
    Range("A38").Insert Shift:=xlDown
End Sub

 

[madistyy]

Sub KesYapistir()
Range("C4:H4").Cut
Range("C" & [C65536].End(3).Row + 1).Insert Shift:=xlDown
End Sub

hocam bu kodu simdi eklediim tabloya ekleyemezmiyiz ? ama c4 h 4 deilde , tablo içineki kırmizi alana uyguliycaz

 

[Necdet]

Merhaba,

7. mesajı görmediniz sanırım.