- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
Merhaba;
çalışma sayfamda 5 inci satırdan itibaren eşleşen satırlar
makro ile EXSTRA çalışma sayfasına aktarılıp siliniyor.
Bu aşamada =SOLDAN(EĞER(A2="";"";İNDİS(B2:B40;KAÇINCI(A2;H2:H450;0)));15)
makro B2 hücresinde sabit duruyor ancak satır silindiği için formüldeki B2:B40 yazan hücre, satır silindikçe B2:B39---38---37 gibi düşüyor. Satır silindikçe B2:40 şeklinin bozulmamasını nasıl sağlayabilirim. Çalışmayı hazırlarken parça parça olduğu için makro ve formüllerin yeri oldukça karışık. Bu yüzden özet bir çalışma sayfası yükleyemedim.
Buradaki sorunum satır silindiğinde ilk ve son satır numarasının sabit kalması. Her ne kadar $ işareti ile sabitlesem de değişen bir şey olmuyor.
çalışma sayfamda 5 inci satırdan itibaren eşleşen satırlar
Kod:
Sub aktarsil()
Range("A5:G5").Select
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Selection.Copy
Sheets("EXSTRA").Select
Application.Goto Reference:="R9999C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("AKTAR").Select
Application.CutCopyMode = False
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Range("C2:E2").Select
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub
Bu aşamada =SOLDAN(EĞER(A2="";"";İNDİS(B2:B40;KAÇINCI(A2;H2:H450;0)));15)
makro B2 hücresinde sabit duruyor ancak satır silindiği için formüldeki B2:B40 yazan hücre, satır silindikçe B2:B39---38---37 gibi düşüyor. Satır silindikçe B2:40 şeklinin bozulmamasını nasıl sağlayabilirim. Çalışmayı hazırlarken parça parça olduğu için makro ve formüllerin yeri oldukça karışık. Bu yüzden özet bir çalışma sayfası yükleyemedim.
Buradaki sorunum satır silindiğinde ilk ve son satır numarasının sabit kalması. Her ne kadar $ işareti ile sabitlesem de değişen bir şey olmuyor.
Ekli dosyalar
-
225.6 KB Görüntüleme: 4