İkinci satırı silmek

[izcik]

İyi günler

Çok uğraştım fakat yapamadım. Boş olan ikinci satırı ortadan kaldırabilir misiniz?

ornek.xlsx dosyasını indir - download

ornek.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[asimavi50]

A-A Sütun ve satırını baz alırsak aşağıdaki kodu uygulayabilirsiniz, bir buton yardımıyla da yapabilirsiniz.

Sub BOŞ_SATIR_SİL()
    On Error GoTo Son
    [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Son:
End Sub

Private Sub CommandButton1_Click()

End Sub

 

[izcik]

A-A Sütun ve satırını baz alırsak aşağıdaki kodu uygulayabilirsiniz, bir buton yardımıyla da yapabilirsiniz.

Sub BOŞ_SATIR_SİL()
    On Error GoTo Son
    [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Son:
End Sub

Private Sub CommandButton1_Click()

End Sub

İlginiz için çok teşekkürler, fakat kastettiğim tam olarak bu değildi, zira 2. satırı manuel ya da makroyla sildiğimizde formüller bozuluyor.Formüllerin bozulmaması ya da düzeltilmesi gerekiyor.

 

[sbayyigit]

Kendi adıma söyleyeyim. ne yapmak istediğinizi anlayamadım.

 

[izcik]

Kendi adıma söyleyeyim. ne yapmak istediğinizi anlayamadım.

Hemen açıklayayım. İstediğim şey çok basit.

3. Satırdan itibaren görünen her şeyin (sağdaki formüller dahil) 2. satırdan başlamasını istiyorum. Yani 2 satırda boş bir satır olmasını istemiyorum.

(Gönderdiğim örnekte 2. satırı elle sildiğinizde formüller bozuluyor.

Dolayısı ile formüllerin düzeltilmesi gerekiyor, fakat ben yapamadım.

 

[52779]

Selamlar,
Sanırım, istenilen, ekteki gibidir.

ornek_11.xlsx dosyasını indir - download

ornek_11.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[ÖmerFaruk]

2. satırınızı silin

J2 için
=KAYDIR(A$1;TAMSAYI((SATIR($A1)-1)/7)+1

K2 için
=KAYDIR(B$1;TAMSAYI((SATIR($A1)-1)/7)+1

L2 için
=KAYDIR($B$1;;MOD(SATIR($A1)-1;7)+1)

M2 için
=KAYDIR(B$1;TAMSAYI((SATIR($A1)-1)/7)+1;MOD(SATIR($A1)-1;7)+1)

 

[izcik]

İlgileriniz için teşekkür ederim. Bilgisayar başına geçince hemen deneyeceğim.

 

[52779]

Formüllü listenin yanında,
Aynı zamanda, ad tanımlamaları ve formüllerin VBA çevrilmişi ile
Makro ile liste elde edilmesini içeren dosya ektedir... İncelersiniz

ornek_11.xlsm dosyasını indir - download

ornek_11.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[izcik]

2. satırınızı silin

J2 için
=KAYDIR(A$1;TAMSAYI((SATIR($A1)-1)/7)+1

K2 için
=KAYDIR(B$1;TAMSAYI((SATIR($A1)-1)/7)+1

L2 için
=KAYDIR($B$1;;MOD(SATIR($A1)-1;7)+1)

M2 için
=KAYDIR(B$1;TAMSAYI((SATIR($A1)-1)/7)+1;MOD(SATIR($A1)-1;7)+1)

Sayın ÖmerFaruk tam olarak doğrudur. Teşekkür ederim, sağlıklar dilerim.

 

[izcik]

Formüllü listenin yanında,
Aynı zamanda, ad tanımlamaları ve formüllerin VBA çevrilmişi ile
Makro ile liste elde edilmesini içeren dosya ektedir... İncelersiniz

ornek_11.xlsm dosyasını indir - download

ornek_11.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

Sayın 52779, her zamanki ilginize ve emeğinize teşekkür ederim.

Formülle yapılan kısımda,
J3, K3, L3, M3 ve
J4, K4, L4, M4
satırlardan birisi fazlalık olarak oluşuyor. (Son dosyada yan yana bakınca hemen göze çarpıyor)
Ama makro ile yapılan tam olarak doğrudur. Teşekkür eder, sağlıklar dilerim.

 

[52779]

Selamlar,
Ben teşekkür ediyorum...

Formülle yapılan kısımda,
J3, K3, L3, M3 ve
J4, K4, L4, M4
satırlardan birisi fazlalık olarak oluşuyor. (Son dosyada yan yana bakınca hemen göze çarpıyor)

Evet haklısınız....
Formülleri yazıp, 2. satırı silip, üst satırı sadece bir alt satıra kopyalamaktan kaynaklanan bir problem...

Çözüm için
J2 : M2 seçin
** Sağ alt köşeye geldiğinizde + işareti belirince iki kez tıklatın kopyalama işlemi tamamlanacaktır.
** Ya da J2 : M2 yi seçip aşağıya kadar kopyalayın....