Kurye gönderimi için

[gulevurgun]

Arkadşar kurye gönderimi için bana yardımcı olabilirseniz sevinirim.Dosya içinde açıklama yaptım.

 

[Necdet]

Merhaba,

Doğru anlayıp anlamadığımı bilmiyorum, eğer doğru anladıysam aşağıdaki kodları deneyebilirsiniz.

Yine doğru anladıysam makroda önerdiğim çözümü bir kaç maddelik işlemle yapmak olası.

Sub Duzenle()
Application.ScreenUpdating = False
Sat = [B65536].End(3).Row
Range("C3:C" & Sat).Select
Selection.SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete
[B2] = [B2] + 1
Sat = [B65536].End(3).Row
If Sat > 2 Then
    For i = 3 To [B65536].End(3).Row
        Cells(i, "A") = i - 2
    Next i
End If
[D2].Select
MsgBox "Düzenleme Bitmiştir..."
End Sub

 

[gulevurgun]

Teşekkür ederim.Evet istediğim olmuş ama ona ek olarak şu olamaz mı gönderilenleri silmese 1 sayfada saklasa?

 

[Necdet]

Merhaba,

İsteğiniz olası, dün akşam ekleyecektim dosyayı ama siteye erişim konusunda sorun vardı, sanırım bakım nedeniyle olsa gerek.

Silinen veriler Sayfa2 ye yazılıyor.

Sub Duzenle()
Set s2 = Sheets("Sayfa2")
Son = s2.[B65536].End(3).Row + 1
Application.ScreenUpdating = False
For i = 2 To [B65536].End(3).Row
    If Cells(i, "C") <> "" Then
        Range("B" & i & ":C" & i).Copy s2.Range("B" & Son)
        Son = Son + 1
    End If
Next i
Sat = [B65536].End(3).Row
Range("C2:C" & Sat).SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete
[B1] = [B1] + 1
[D1].Select
MsgBox "Düzenleme Bitmiştir..."
End Sub

 

[gulevurgun]

Çok teşekkür ederim çok işime yaradı Allah razı olsun.

Selametle...

 

[Necdet]

Sizin işinize yaradıysa eğer ben çok memnun olurum. Herşeye goca rabbımı karıştırmamak gerek diye düşünürüm.

 

[gulevurgun]

Peki öyle diyorsanız öyle olsun.Dua anlamında söylemiştim ama farklı algılanıyorsa söylemem.
Yardımlarınız için tekrar teşekkür ederim

 

[Ferhat Pazarçevirdi]

Sizin işinize yaradıysa eğer ben çok memnun olurum. Herşeye goca rabbımı karıştırmamak gerek diye düşünürüm.

İlahi Necdet bey, Laiklik budur işte ...

 

[Necdet]

Sayın gulevurgun,

Lütfen söylediklerimi yanlış anlamayınız. Teşekkür etmenizin anlamı benim için çok daha büyük.

Ferhat Bey sizi çok seviyorum, herşey gönlünüzce olsun