satır açma ve silme

[Ayşavkı]

Herkese merhaba!!! Değerli arkadaşlar ekteki dosyada da izahat yapmaya çalıştım;aşağı ok tuşu ile yeni satır açabilirmiyiz? Yani başlıklar altına gerekli bilgileri girdik aşağı ok tuşuna bastığımızda yeni satır açacak (başlık sütunu kadar) yukarı ok tuşuna bastığımızda ise msgbox ile yapılacak sorgudan evet dediğimizde aktif hücrenin bulunduğu satırı silecek.ayrıca arayada satır açtırabilirmiyiz acaba?SAYGILAR!!

 

[excel2010]

öncelikle excel i 2003 versiyona uyumlu olarak değiştirsen...

 

[Ayşavkı]

öncelikle excel i 2003 versiyona uyumlu olarak değiştirsen...

bu da excel 97 2003 dosyası saygılar!!

 

[Ayşavkı]

Arkadaşlar cevap gelmemesini derdimi anlatamamaya bağlayarak şöyle izay edeyim aşağı ok tuşuna bastığım vakit gizlenmiş satırlardan sıradakini açacak SAYGILAR!!!

 

[Ayşavkı]

Değerli Arkadaşlar!!! konu içeriği umutsuz vakıamı acaba?

 

[Ayşavkı]

Değerli arkadaşlar!!!sanırım mümkün değil bu olay teşekkürler!!!

 

[usubaykan]

Merhaba;

Sitem kar olmayın ;-) Eki inceleyin? İsteğinizi karşılar belki.
Shift+Yukarı ok yada shift+aşağı ok tuşlarına aynı anda basınız.

Kullanılan kodlar;
ThisWorkbook Kısmına;

Option Explicit
Private Sub Workbook_Activate()
    Application.OnKey "+{DOWN}", "DENEME_AŞAĞI_OK"
    Application.OnKey "+{UP}", "DENEME_YUKARI_OK"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "+{DOWN}", ""
    Application.OnKey "+{UP}", ""
End Sub
Private Sub Workbook_Deactivate()
    Application.OnKey "+{DOWN}", ""
    Application.OnKey "+{UP}", ""
End Sub
Private Sub Workbook_Open()
    Application.OnKey "+{DOWN}", "DENEME_AŞAĞI_OK"
    Application.OnKey "+{UP}", "DENEME_YUKARI_OK"
End Sub

Module1 kısmına;

Option Explicit
Sub DENEME_YUKARI_OK()
Dim Son_Satır As Long, Onay
    Son_Satır = Range("A65536").End(3).Row
    If Son_Satır <> 1 Then
    Onay = MsgBox(Son_Satır & " .nci Satırınız silinicektir onaylıyor musunuz?", vbCritical + vbYesNo)
        If Onay = vbYes Then
        Rows("" & Son_Satır & ":" & Son_Satır & "").ClearContents
        Rows("" & Son_Satır & ":" & Son_Satır & "").EntireRow.Hidden = True
        End If
    Else
    MsgBox "1. Satırı silemezsiniz", vbCritical
    End If
End Sub
Sub DENEME_AŞAĞI_OK()
Dim Son_Satır As Long
    Son_Satır = Range("A65536").End(3).Row + 1
    Rows("" & Son_Satır & ":" & Son_Satır & "").EntireRow.Hidden = False
End Sub

Değerli arkadaşlar!!!sanırım mümkün değil bu olay teşekkürler!!!

 

[Ayşavkı]

Sayın usubaykan!!! sitem etmek ne haddimize;ilginiz için teşekkürler ancak sanırım aşağı ok makrosu çalışmıyor yoksa ben yanlış bir şeymi yaptım bilmiyorum. sizin gönderdiğiniz dosyada ise shift aşağı ok yada shift yukarı ok tuşlarına bastığımda salt okunur ikazı veriyor makrolar çalışmıyor SAYGILAR!!! önerdiğiniz kodları içeren dosyayı ekliyorum.

 

[usubaykan]

Merhaba;

Rar. uzantılı dosyaları açamıyorum. Sıkıntı oluşuyor. Üstteki mesajımdaki dosyayı yeniledim tekrar inceler misiniz?

Sayın usubaykan!!! sitem etmek ne haddimize;ilginiz için teşekkürler ancak sanırım aşağı ok makrosu çalışmıyor yoksa ben yanlış bir şeymi yaptım bilmiyorum. sizin gönderdiğiniz dosyada ise shift aşağı ok yada shift yukarı ok tuşlarına bastığımda salt okunur ikazı veriyor makrolar çalışmıyor SAYGILAR!!! önerdiğiniz kodları içeren dosyayı ekliyorum.

 

[Ayşavkı]

Sayın usubaykan !!! "run-time error 1004"
"range sınıfının hidden özelliği kurulamıyor" şeklinde bir hata veriyor sebebi ne olabilir acaba benim bilgisayardan kaynaklanıyor olabilirmi acaba ?saygılar!!! salt okunu problemide devam etmekte
NOT:aynı dosyanın 97 2003 şeklinde kaydedilmişini ekliyorum

 

[usubaykan]

Merhaba;

Versiyondan kaynaklanıyor olabilir mi ? Eklediğiniz dosyayı açtım satırları gizleyip silebildim. Acaba kullanmak istediğiniz sayfanız şifreli yada gizlemek istediğiniz satır da birleştirilmiş hücre olabilir mi?

Sayın usubaykan !!! "run-time error 1004"
"range sınıfının hidden özelliği kurulamıyor" şeklinde bir hata veriyor sebebi ne olabilir acaba benim bilgisayardan kaynaklanıyor olabilirmi acaba ?saygılar!!! salt okunu problemide devam etmekte
NOT:aynı dosyanın 97 2003 şeklinde kaydedilmişini ekliyorum

 

[Ayşavkı]

Sayın usubaykan!!! birkaç gün önce; sayın hamitcan uzman'ın önerisi ile "spreadsheet" nesnesi için bilgisayarıma owc.11.exe kurmuştum ondan olabilirmi acaba?

 

[Ayşavkı]

Sayın usubaykan!!! birkaç gün önce; sayın hamitcan uzman'ın önerisi ile "spreadsheet" nesnesi için bilgisayarıma owc.11.exe kurmuştum ondan olabilirmi acaba?

ofis 2007 yüklü olan ancak owc11 exe yüklü olmayan başka bilgisayardada denedim ama aynı hataları verdi. Saygılar!!

 

[usubaykan]

ofis 2007 yüklü olan ancak owc11 exe yüklü olmayan başka bilgisayardada denedim ama aynı hataları verdi. Saygılar!!

Merhaba;

Belkide versiyon farkından kaynaklanıyor olabilir tam emin değilim bu konuda. Bende 2010 yüklü ve Makro içerikli dosya olarak kaydettim çalışıyor. Problemi anlamadım sizde hangi versiyon da hata alıyorsanız o şekilde dosyayı ekler misiniz?

 

[Ayşavkı]

Sayın usubaykan!!! nasıl oldu bilmiyorum ama şu an çalışıyor teşekkürler!!!

 

[usubaykan]

Sayın usubaykan!!! nasıl oldu bilmiyorum ama şu an çalışıyor teşekkürler!!!

Rica ederim ;-) Keşke sizin gibi geri dönüş yapsalar. Bazı kimseler çalışmıyor diyor ondan sonra da bir daha ilgilenmiyorlar. Ben her yazdığım kodu deneyerek gönderiyorum. Tekrar denemeniz için bende size teşekkür ederim.

 

[Ayşavkı]

Sayın usubaykan!!! hem sizin dosyanızda hemde kendi dosyamda denedim.,ayrıca 97 2003 olarak kaydettiğim dosyada denedim ,97 2003 olarak kayıtlı dosyada çalıştı;buradan bu kodlara ihtiyaç hissedecek arkadaşlara ikaz anlamında bu mesajı yazma gereği duydum dosyalarını 97 2003 olarak kaydetmeliler sanırım... bende o durumda çalıştı. Teşekkürler!!!