satır kaydırma

[the_umit]

Ekte göndermiş olduğum dosyada bulunan dosyanın maliyet sayfasındaki 9 nolu satıra bilgi geldiğinde 10,11,12,13,14,15 nolu satırların bir alta kaymasını yani 11,12,13,14,15,16 nolu satırlara kadırabilirmiyiz ayrıca, DOĞALGAZ MALİYET formunda seçili hücrenin bulunduğu satırın rengi değişiyor ama bazen eski seçilmiş satırdaki renkler kaybolmuyor bu sorunları çözebilirmiyiz..

ilginize teşekkür....

 

[Necdet]

Sayın the_umit,

Bende bu sorunun yanıtını bekledim ama yanıt çıkmayınca kendimce (Satır Ekleme Kısmını) birşeyler yapayım dedim.

Maliyet Sayfasında G9 hücresinde değişiklik olduğu an satır açılıyor. Fakat aşağıdaki toplam fonksiyonu değişmiyor.

İşinizi tam görmese bile sanırım fikir vermiş olabilir. Başka türlü yapılabilirse bende merak ediyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G9]) Is Nothing Then Exit Sub
If Target <> "" Then
    Application.ScreenUpdating = False
    For i = 10 To 16
        Rows(i).Select
        Selection.Insert Shift:=xlDown
    Next i
    [A10].Select
End If
End Sub

 

[Ali]

Excelin kendi liste özelliği yeterlidir. 9 nolu satır ve üstündeki Malzeme-marka-ölçü yazan satırla birlikte seçin.Veri-Listele-Liste oluştur seçeneği sırasını izleyin. Listem başlık satırı içeriyor kısmını seçin. Bundan sonra veri girdikten sonra alttaki verileriniz bozulmadan bir altta kayacaktır.

 

[the_umit]

Excelin kendi liste özelliği yeterlidir. 9 nolu satır ve üstündeki Malzeme-marka-ölçü yazan satırla birlikte seçin.Veri-Listele-Liste oluştur seçeneği sırasını izleyin. Listem başlık satırı içeriyor kısmını seçin. Bundan sonra veri girdikten sonra alttaki verileriniz bozulmadan bir altta kayacaktır.

kardeşim yardımın için teşşekkür ama listele diye bişe yokki

 

[Ali]

Nasıl yok iyi bakın.Excel Menüleri sıra ile bakın Dosya-Düzen-Görünüm....... Veri menüsünün altındaki Listele-Liste Oluştur seçeneği var.

Kısayolu ise CTRL+L tuşudur.

 

[Rido66]

Alİ Bey Bİrde Sİz Bakin Versİyon Farki Olabİlİr Mİ?

 

[Ali]

Kadir Bey siz aktif hale getirmelisiniz.O zaman gözükecektir. Nasıl yapacağınız görmek için aşağıdaki linki inceleyebilirsiniz.

http://office.microsoft.com/search/redir.aspx?assetid=HP010317161055&QueryID=Xx-BVBaAi0&respos=1&rt=2&pid=CH010006341055

 

[Ali]

Sn Ümit dosyanınız boyutu büyük olduğu için aşağıdaki linklere yükledim.

http://uploaded.to/?id=sqtpvp
http://rapidshare.tc/833941

 

[dumanibo]

Aşağıdaki kodu da kendinize uyarlayıp çalışma sayfanızın kod kısmına ekleyerek kullanabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 And Target.Row = 9 Then
Cells(9, 1).Select
Selection.EntireRow.Insert
End If
End Sub