[B4:B44] Aralıkta çift tıklandığında [a:c] arası silip alttakileri üste kaydırma

[nickelaj]

[B4:B44] Aralıkta çift tıklandığında [a:c] arası silip alttakileri üste kaydırma

Merhaba,
biraz eski bir konu olmuş ama burdaki gibi bir makro sorsam size,

a5,b5,c5 ten a44,b44,c44 e kadar bilgiler var.
Sayfa B sütunundaki herhangi bir hücreye 2 kere tıklanınca seçilen satır silinip altında kalanları yukarı nasıl taşıyabiliriz ? (copy-paste gibi olmazsa 44ten sonraki satırlar da bozulur)

teşekkür ederim

 

[veyselemre]

Merhaba,
biraz eski bir konu olmuş ama burdaki gibi bir makro sorsam size,

a5,b5,c5 ten a44,b44,c44 e kadar bilgiler var.
Sayfa B sütunundaki herhangi bir hücreye 2 kere tıklanınca seçilen satır silinip altında kalanları yukarı nasıl taşıyabiliriz ? (copy-paste gibi olmazsa 44ten sonraki satırlar da bozulur)

teşekkür ederim

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [B4:B44]) Is Nothing Then Exit Sub
    Cancel = True
    sat = Target.Row
    If sat > 4 And sat < 44 Then Range(Cells(sat, "A"), Cells(43, "C")).Value = Range(Cells(sat + 1, "A"), Cells(44, "C")).Value
    If sat > 4 And sat <= 44 Then Range("A44:C44") = ""
End Sub

 

[nickelaj]

ellerinize sağlık
benim bu işlem için 12 satır harcadığımı düşünürsek daha çok uğraşmam gerektiğine kanaat getirdim.

zaman ayırdığınız için çok teşekkür ederim

 

[nickelaj]

sn. veyselemre,
şöyle bir ilginçlik oldu

a ve b hücresinde yazı vardı, c hücresinde ise "245.000,00 YTL" gibi ytl para birimli sayılar vardı. bu makroyla aktif satır silinip alttaki satırlar yukarı tam istediğim gibi taşınıyor fakat aktif c hücresi ve altındaki tüm rakamlar "$452,000.00" gibi bir hal alıyor. Nasıl düzeltebilirim bunu acaba ?

 

[veyselemre]

Bir örnek eklerseniz, inceleyim.

 

[nickelaj]

Bir örnek eklerseniz, inceleyim.

örnek dosyayı ekledim.

 

[veyselemre]

Göndermiş olduğunuz örnek gayet güzel çalışıyor, bahsettiğiniz gibi bir sorun yok.

 

[nickelaj]

bir de böyle göndereyim o zaman.
13.satır engin silinince çıkan sonuç

 

[veyselemre]

Denetim masasından uluslararası ayarlarınızı kontrol edin. Dosyanızda bende böyle bir sorun ortaya çıkmıyor. Sorun sizin ayarlarınızda büyük ihtimalle.

 

[nickelaj]

işte işin ilginç kısmı burda zaten. ofiste 3 farklı makinede deniyorum, hepsinde aynı şekilde görüntülendi. (bu xp için olan ytl eklentisinden mi anlamadım.)

yine de ilginiz ve emeğiniz için teşekkür ederim