Tersten bilgi ekleme

[kıvılcım1982]

Arkadaşlar merhaba,
Ben ofisimde her konuştuğum müşterimin bilgilerini alıyorum.Ad soyad, telefon, adres v.s, bu bilgileri excel'e telefonla konuşma esnasında resimdende görebileceğiniz gibi ekliyorum.Şöyle bir sorunum var, her yeni müşteriyi en son eklemiş olduğum müşterinin altına eklediğim için her excel'i açtığımda ilk müşterilerimle karşılaşıyorum.Ben bu işlemi şöyle yapmak istiyorum.

İlk eklediğim müşteri excel'in en altında olsun, her yeni müşterimi en üst satıra ekleyeyim.Bunu nasıl yapabilirim acaba?

 

[Merhum İdris SERDAR]

Arkadaşlar merhaba,
Ben ofisimde her konuştuğum müşterimin bilgilerini alıyorum.Ad soyad, telefon, adres v.s, bu bilgileri excel'e telefonla konuşma esnasında resimdende görebileceğiniz gibi ekliyorum.Şöyle bir sorunum var, her yeni müşteriyi en son eklemiş olduğum müşterinin altına eklediğim için her excel'i açtığımda ilk müşterilerimle karşılaşıyorum.Ben bu işlemi şöyle yapmak istiyorum.

İlk eklediğim müşteri excel'in en altında olsun, her yeni müşterimi en üst satıra ekleyeyim.Bunu nasıl yapabilirim acaba?

.

Ben resmi göremediğim için, resimle ilgili bir şey söyleyemeyeceğim.

Ancak verileri tarih ve saat olarak kaydediyorsanız. Buna göre istediğiniz şekilde sıralama yapabilirsiniz.

.

 

[kıvılcım1982]

yok bahsettiğim tarih sıralaması değil, örneğin excel'in 4 numaralı satırına yazı yazdım, sonraki günde 3 numaralı satıra yazdım, daha sonra 2 numaralı satıra, sonra 1 numaralı satıra boşluk eklemem lazımki yeniden yazı yazabileyim, bunu otamatik olarak yapacak birşey arıyorum.Çok anlamadığım için sizin dilinizde yazamıyorum bunun için üzgünüm.Yardımcı olabilirseniz çok sevinirim.

 

[uzmanamele]

merhaba

ek dosya gibi bişey istediğinizi sanıyorum.
D sütununa veri girdiğinizde; son satırı en üste alacaktır.
bu şekilde siz listenin altına doğru yazmaya decam ettikçe yazdığınız son satır en üste gelecek şekilde düzenlenir.

kodu kendinize uyarlayamazsanız örnek dosya ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("d:d")) Is Nothing Then Exit Sub
If Target.Row = 2 Then Exit Sub
    Application.EnableEvents = False
ss = Range("a65536").End(3).Row
    Range("A2").EntireRow.Insert
Range(Cells(ss + 1, 1), Cells(ss + 1, 5)).Cut Range(Cells(2, 1), Cells(2, 5))
Cells(ss + 1, 1).Select
    Application.EnableEvents = True

End Sub

 

[kıvılcım1982]

Öncelikle ilginiz için çok teşekkürler.Evet istediğim tam olarak buydu ama bunu şu şekilde düzenleyebilirseniz çok sevinirim.
ilk 5 satır sabit kalsın, yani bu makro ilk 5 satırda etkin olmasın, 6. satırdan itibaren etkin olsun ve 6. satırın tüm 6a, 6b, 6c, 6d.... sütunlarında olsun.Birde örneğin 6d yapmışsınız, ben 6d ye telefon ekleyince 6e yede mail ekleyecem ama 6d aşağıya kaymış oluyor.Bunu nasıl önleriz.Aslında bu sorunu şöylede giderebiliriz, ben 6. satırı doldurduktan sonra kaydedeyim, sonra kapatayım, birdahaki açılışında aşağı kaysın.Buda olabilir.

Son olarak ben excel 2007 kullanıyorum, bu kodlama aynı şekilde 2007 de çalışırmı?

 

[uzmanamele]

merhaba

sadece sizin istediğiniz dosyayı tahmin ederek bir örnek çalışma ekledim.
son söylediklerinizin hepsi olabilir, bunun için örnek dosya ekleyiniz.

 

[kıvılcım1982]

Dosya ektedir.