Çözüldü Satırı yukarı taşıma ve silme

[1903emre34@gmail.com]

Merhaba,

"TRY" kelimesinin altında (kırmızı dolgu) satırın silinmesi ve "TRY" kelimesinin üstünde kelimeler var ise (sarı dolgu hücre) yanındaki tutarların bir üstüne çıkılması, hem de TRY kelimesini kalkması, "TRY" kelimesinin üsütnde veya altında hiçibir şey yoksa ise (yeşil dolgu) hiçbir şey yapmaması için nasıl kod oluşturabiliriz. istenen sayfa2'de yapılmıştır.

http://s7.dosya.tc/server10/43dz3x/hesap_3_excel.zip.html

 

[Asri]

Merhaba,

üst , alt olarak bakmadım. TRY nin yanında bilgi var ise taşıma silme, yok ise taşı sil yaptım.

Kontrol ediniz.

Sub duzenle()
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   For i = sonsatir To 10 Step -1
     veri = Cells(i, "B").Value
     veriyan = Cells(i, "A").Value
     If veri = "TRY" And veriyan = "" Then
        Range("C" & i & ":I" & i).Cut
        Range("C" & i - 1).Select
        ActiveSheet.Paste
        Rows(i).Delete
     End If
     If veri = "" And veriyan = "" Then
        Rows(i).Delete
     End If
   Next i
End Sub

 

[1903emre34@gmail.com]

İlginiz için teşekkürler, satır aralığında bir satır boş kalıyor.

Sayfa1 ; kodların uygulandığı,

Sayfa2: istenen

 

[Asri]

Kod güncellendi.

İlgili satırın A ve B hücresi boş ise satır silinir.