başka sayfaya gönderilen satırın yerini altındaki satırı kaydırarak doldurma

[MYCOUNTRY]

arkadaşlar merhaba,

eklediğim çalışma seyfasında tamamlandı yazan satırları 2.sayfaya yolluyoruz fakat 1. sayfadaki yeri boş kalıyor yapmak istediğim bilgi diğer sayfaya gittikten sonra 1. sayfadan gönderilen satırın silinip bir sonraki satırın o boşluğu doldurması
böyle bişey mümkünmü

 

[apocalyt]

kodda şu satır var..
Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Cut Destination:=Worksheets("sonuçlanan talepler").Range("A" & SONSONUC)

bu yukarıdaki satırın altına

Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Delete

ekleyiniz.

 

[MYCOUNTRY]

kodda şu satır var..
Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Cut Destination:=Worksheets("sonuçlanan talepler").Range("A" & SONSONUC)

bu yukarıdaki satırın altına

Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Delete

ekleyiniz.

hocam teşekkür ederim işim görüldü

 

[apocalyt]

rica ederim üstad..

 

[MYCOUNTRY]

rica ederim üstad..

kusura bakmayın bir sorunum daha var aşağıdaki gibi bir hata veriyor ne yapmam lazım

Run-time error 1004

bu işlem için birleştirilen hücrelerin aynı boyutta olması gerekiyor

 

[apocalyt]

ben kodda bir iki değişiklik yaptım .bu kodu kopyalayıp bir kontrol edin..doğan üstad çözümleseydi daha iyi olurdu sonuçta ben konuya tam hakim değilim..ama bir bakın..

Private Sub CommandButton1_Click()
Dim SAY, SON, SONSONUC As Integer
Dim sonhucre1, sonhucre2 As Range

Set sonhucre1 = Worksheets("talepler").Range("A:L").SpecialCells(xlCellTypeLastCell)
Set sonhucre2 = Worksheets("sonuçlanan talepler").Range("A:L").SpecialCells(xlCellTypeLastCell)

SON = Worksheets("talepler").Range("A1048576").End(xlUp).Row

For SAY = SON To 3 Step -1
If Cells(SAY, 12).Value = "TAMAMLANDI" Or Cells(SAY, 12).Value = "tamamlandı" Then
SONSONUC = Worksheets("sonuçlanan talepler").Range("A1048576").End(xlUp).Row + 1
Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Copy
Worksheets("sonuçlanan talepler").Range("A" & SONSONUC).PasteSpecial (xlPasteValues)
Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Delete

End If
Next SAY


Worksheets("talepler").Range("A3:" & sonhucre1.Address).Sort _
Key1:=Worksheets("talepler").Range("d3")

Worksheets("sonuçlanan talepler").Range("A3:L" & Sheets("sonuçlanan talepler").[a10000].End(3).Row).Sort _
Key1:=Worksheets("sonuçlanan talepler").Range("I3")
End Sub

 

[MYCOUNTRY]

ben kodda bir iki değişiklik yaptım .bu kodu kopyalayıp bir kontrol edin..doğan üstad çözümleseydi daha iyi olurdu sonuçta ben konuya tam hakim değilim..ama bir bakın..

Private Sub CommandButton1_Click()
Dim SAY, SON, SONSONUC As Integer
Dim sonhucre1, sonhucre2 As Range

Set sonhucre1 = Worksheets("talepler").Range("A:L").SpecialCells(xlCellTypeLastCell)
Set sonhucre2 = Worksheets("sonuçlanan talepler").Range("A:L").SpecialCells(xlCellTypeLastCell)

SON = Worksheets("talepler").Range("A1048576").End(xlUp).Row

For SAY = SON To 3 Step -1
If Cells(SAY, 12).Value = "TAMAMLANDI" Or Cells(SAY, 12).Value = "tamamlandı" Then
SONSONUC = Worksheets("sonuçlanan talepler").Range("A1048576").End(xlUp).Row + 1
Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Copy
Worksheets("sonuçlanan talepler").Range("A" & SONSONUC).PasteSpecial (xlPasteValues)
Worksheets("talepler").Range("A" & SAY & ":L" & SAY).Delete

End If
Next SAY


Worksheets("talepler").Range("A3:" & sonhucre1.Address).Sort _
Key1:=Worksheets("talepler").Range("d3")

Worksheets("sonuçlanan talepler").Range("A3:L" & Sheets("sonuçlanan talepler").[a10000].End(3).Row).Sort _
Key1:=Worksheets("sonuçlanan talepler").Range("I3")
End Sub

sorun çözüldü teşekkür ederim

 

[apocalyt]

tamamdır..