Sayi silme ve geri getirme

[adslboy]

Selamlar,

Aşağıki doyada yapılmasını istediğim işlemi belirttim.

Makro yu yazan kişiye Teşekürler.

 

[Ömer]

Merhaba,

Silme;

Sub Sil()
Application.ScreenUpdating = False
Set S1 = Sheets("Sayfa2")
S1.Range("A1:V65536").ClearContents
Dim i As Integer
Dim c As Range
son = [A65536].End(3).Row
Range("A4:V" & son).Copy S1.Range("A1")
For i = 1 To 22
    Set c = Range("A4:V" & son).Find(Cells(1, i), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then c.ClearContents
Next i
Application.ScreenUpdating = True
End Sub

Geri Alma;

Sub GeriGetir()
Application.ScreenUpdating = False
Set S1 = Sheets("Sayfa2")
son = S1.[A65536].End(3).Row
S1.Range("A1:V" & son).Copy Range("A4")
Application.ScreenUpdating = True
End Sub

.

 

[adslboy]

kod 18 ci satırdan sonrasındakileri silmiyor.

Range A1-V65539 Arası olabilirmi

tekrar bir göz atmanızı rica edicem ..

Eğmeğiniz için Teşekür ederim.

 

[Orion1]

sil kodu sayfa2 deki A:V arasında kalan bütün hücreleri siliyor.

 

[adslboy]

SAYFA 2 Dediginiz hangi satir oluyor ?

 

[Korhan Ayhan]

Selamlar,

Sil kodu çalıştığında A sütunundaki en son dolu hücre referans alınarak verilerin tümü Sayfa2 ye kopyalanmaktadır. Daha sonrada kod 1. satırdaki değerleri alanda bularak silmektedir.

Geri getir kodu ise Sayfa2 ye kopyalanan verileri tekrar Sayfa1 e kopyalamaktadır.

Kod örnek dosyanıza göre doğru çalışmaktadır.

 

[adslboy]

Sayin Korhan Ayhan ,

açıklamanız için teşekür ederim

Aşağıya doyayı ekliyorum. isterseniz onun üzerinden izah etmeye

gayret edim.

sil butonuna tıkladıgımda A4-V8 arasındakı a1 satırındaki sayıları

silinmekte, oysam kodun A4-V65536 arasında a1 satırında

belirtilen rakamları silmesi istenmekte örnek dosyada görüldüğü

üzere makro bunu yapmıyor ?

 

[Korhan Ayhan]

Selamlar,

Silme işlemi için aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SİL()
    Dim X As Byte
    
    For X = 1 To 22
        Range("A4:V65536").Replace What:=Cells(1, X), Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[adslboy]

Yardımını esirgemeyen herkeze teşekürler

Ellerinize ve egmeginize saglik.