satırların değerleriyle beraber aşağı kayması

[Fando]

arkadaşlar.. merhaba.. excel de iki tane sayfam var bunlar Sayfa1 ve Sayfa2
sayfa1 in a2 sütununu yeni bir isim eklemek için kullanıyorum. sayyfa2 de ise bir tablom var ve bu tablo 5 farklı sütundan oluşuyor...

sayfa1 de a2 satırının sonunda kaldığım satıra örn:A147 satırına yeni bir isim eklediğimde bu ismi kod yardımıyla sayfa2 nin a2 sütununa otomatik kopyalıyorum ve A-Z sıralaması yapıyor.

sorun bundan sonra oluyor. sayfa2 de isimlerin yanındaki satırlara ise o isimle ilgili değerleri giriyorum örn: A2 :ALİ B2:VELİ C2:TELEFON D2:ADRES (A2 deki değer sayfa1 den otomatik kopyalandığı için(kod yardımıyla) ben sadece b2,c2,d2 satırlarını giriyorum. A3:BARAN B3:COŞKUN C3: TELEFON D3:ADRES

fakat sayfa1 yeni bir isim girdiğimde örn:AHMET (ali ve baran arasında bir değer)
yeni girdiğim ahmet isimli satır komple boş kalsın istiyorum ama üst satırdaki değeri alta kaydırıyor yani Son eknen AHMET yanına ALİ nin telefonunu getiriyor ben alinin satırı olduğu gibi kalsın ahmetin satırı boş oalrak eklensin istiyorum....

biraz uzun oldu özür dielrim ama başka türlü detaylı anlatamazdım.. şimdiden teşekkrüer

 

[Muzaffer Ali]

Örnek dosya ekleyip üzerinde göstermelisiniz.

 

[Fando]

dalgalikur ilginiz için teşekkür ederim.. 2 excel sayyfam var bunlardan birine(FirmaEkle) firma adı ekliyorum buraya eklediğim yeni firma adı 2. sayfamda(FIRMABILGI) kod yardımıyla kopyalanıp AZ sıralaması yapıyor. daha firma adının yanındaki satırlara firma ile ilgili bilgileri giriyorum. sorunum şu: ben firmaekle sayfasına yeni bir firma adı eklediğimde (örn:ayla giyim) FIRMABILGI sayfasında yeni eklediğim firmanın altında kalan satırların komple aşağı kaymasını istiyorum. (yani ayla giyimin bulunduğu satırın yanındaki tüm satırlar boş olacak ) bunu nasıl çözebilirim? örnek dosya ekliyorum yardımcı olursanız çok sevinirim. teşekkürler... https://yadi.sk/d/d-A8pqu_TFAJz

 

[Fando]

kimse cevp verememiş... yapamadığım şey gerçekten bu kadar zor bir sorun mu

 

[Muhammet Okumuş]

Merhaba,
Range("a2:a1000").Sort Key1:=[a2], order1:=xlAscending

kısmını

Range("a2:g1000").Sort Key1:=[a2], order1:=xlAscending

yapınız.

 

[Fando]

Merhaba,
Range("a2:a1000").Sort Key1:=[a2], order1:=xlAscending

kısmını

Range("a2:g1000").Sort Key1:=[a2], order1:=xlAscending

yapınız.

muhammet bey öncelikle ilginiz için teşekkür ederim... ama maalesef dediğiniz yöntem işe yaramadı ""range sınıfının sort yöntemi başarısız" hatası verdi... 2 gündür uğraşıyorum hiç bir yerde sorunla ilgili bi sonuca ulaşamadım ((

 

[Muhammet Okumuş]

Sizin dosyanızda koruma mı var anlayamadım. Sanırım bazı özellikler bakımından sınırlama getirilmiş.