Tablonun aynı satırda sabit kalması.

[ynmcan]

Merhaba arkadaşlar;

Çalışmamda aralarında kullanmadığım boş satırlar olan uzunca birkaç tablom var. Ancak bu tablolarada bazen bir kaç satır ekleyip silmem gerekiyor. Bu işlemi yaparken tabloların başlangıç satırı sabit kalması gerekmekte. tabloların arasındaki satır sayısının azalıp çoğalması önemli değil.
Ekte örnek bir dosya ekledim. Yardımcı olursanız sevinirim.

 

[asi_kral]

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub sabit_tablo()
Dim STR As Long, VR As Long
STR = WorksheetFunction.Match("TABLO 2", Range("B:B"), 0)
If STR > 30 Then
VR = STR - 30
Rows(30 - VR & ":29").Delete shift:=xlUp
ElseIf STR < 30 Then
VR = 29 - STR
Rows(STR & ":" & STR + VR).Insert shift:=xlDown
End If
End Sub

 

[ynmcan]

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub sabit_tablo()
Dim STR As Long, VR As Long
STR = WorksheetFunction.Match("TABLO 2", Range("B:B"), 0)
If STR > 30 Then
VR = STR - 30
Rows(30 - VR & ":29").Delete shift:=xlUp
ElseIf STR < 30 Then
VR = 29 - STR
Rows(STR & ":" & STR + VR).Insert shift:=xlDown
End If
End Sub

Syn. Asi Kral;
Teşekkür ederim. Kod istediğim gibi çalışıyor.

 

[asi_kral]

Syn. Asi Kral;
Teşekkür ederim. Kod istediğim gibi çalışıyor.

---------
:hey:
---------