Silinen hücrelerin yerine alttaki hücreleri yukarı ötelemek.

[Orion1]

Merhabalar.
A5:G5 aralığını Range("A5:G5").Delete
komutu ile siliyorum.
Silinen hücrelerin yerine alttaki hücrelerin doldurmasını istiyorum.
Yani Hücrelerin yukarı ötelenmesini istiyorum.
Teşekkür ederim.
iyi çalışmalar.
:hey:

 

[Ali]

Sn Sezar,

Sub SİL()
Range("A5:G5").Rows.Delete
End Sub

olarak sildiğiniz zaman ötelenir ama sizin kodunda aynı işi görmesi lazım

 

[Orion1]

Sn Sezar,

Sub SİL()
Range("A5:G5").Rows.Delete
End Sub

olarak sildiğiniz zaman ötelenir ama sizin kodunda aynı işi görmesi lazım

merhabalar.
Bu kod ile benim yazdığım kod ayni işi görüyor.
Silindiği zaman aşğıdan yukarı ötelenmiyor'soldan sağa doğru öteleniyor.
:hey:

 

[Seyit Tiken]

İstediğiniz böyle bir kod mu?

Sub Makro1()
Range("A5:G5").Delete Shift:=xlUp
Range("A5").Select
End Sub

 

[Ali]

Aşağıdaki kodları deneyin

Sub SİL()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A5:G5")
For Each c In Rng
c.EntireRow.Delete xlShiftUp
Next c
Application.ScreenUpdating = False
End Sub

 

[Orion1]

İstediğiniz böyle bir kod mu?

Sub Makro1()
Range("A5:G5").Delete Shift:=xlUp
Range("A5").Select
End Sub

Merhabalar.
Sn:Seyit Tiken
Tamda istediğim buydu.
Teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Ali]

Bu kodlar ile alttaki verileriniz kayar

 

[Orion1]

Bu kodlar ile alttaki verileriniz kayar

Merhabalar.
Bende zaten onu istiyordum.
Silenen aralıktaki hücrelerin yerini Bir alttaki hücrelerin doldurmasını.
İyi geceler.

 

[Ali]

Sayın Sezar alttaki verilerizden kaymadaki maksat tablo düzeniniz bozulur tamamen kayma olmaz yeterince incelememişsiniz sanırım
A5:G5 değeri silindiği zaman mesela en altta G20 hücrenizdeki verinizin yanına H20 hücresindeki değerden başka bir değer G20 hücrenizin karşısına gelir.
Hücrenin gerçek karşılığı yerine alttaki herhangi bir değerin üste kayması sizin için önemlisi değil ise orasını bilmiyorum.

 

[Orion1]

Sayın Sezar A5:G5 değeri silindiği zaman mesela en altta G20 hücrenizdeki verinizin yanına H20 hücresindeki değerden başka bir değer G20 hücrenizin karşısına gelir.
.

Merhabalar.
H20 hücresi 'nin değeri değişmiyor.H20 deki değer yerinde sabit kalıyor.
A5:G5 i sildiğimde blok olarak alttaki hücreler yukarı öteleniyor.
Benim için tablonun A1:G65536 aralığı gerekiyor.
İlginiz için teşekkür ederim.
İyi çalışmalar.

 

[Ali]

Farklı dillerden konuşuyoruz sanırım. Neyse ben anlatamadım sanırım.
Eki çalıştırın ve sayıları birbiri ile karşılaştırın 5-5 eşlenince makro çalıştığında 6-5 eşleşmesi olacak

Dediğim gibi karşılığındaki veri bozulması sizin için önemli değilse sorun yok.

 

[Orion1]

Merhabalar.
Sn:fructose
Konunun hassasiyetine verdiğiniz önemden dolayı teşekkür ederim.
Yolladığınız dosyaya baktım .Benim için bu uygulamanın bir Sakıncası
Yok.
İyi çalışmalar.

 

[Ali]

Formüllü bir hücre olabilir ve verileriniz kayabilir diye düşündüm.Sorun olmadığına sevindim

İyi çalışmalar Sn Sezar, :hey: