Makro Formülleri Silmesin

[1Al2Ver]

Merhaba,

Makro Kaydet yöntemi ile aşağıdaki makroyu elde ettim,

"KAYIT_ET" sayfasındaki V2:Y4 aralığında formüller var,

İsteğim, makro "KAYIT_ET" sayfasında V2:Y4 aralığındaki verileri silsin, ancak bu aralıktaki formüller silinmesin.

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("V2:Y4").Select
    Selection.Copy
    Sheets("RAPOR_AL").Select
    Range("B2:F100").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("KAYIT_ET").Select
    Application.CutCopyMode = False
    Range("V6").Select
End Sub

Koda ilave rica ediyorum.

Teşekkür ederim.

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir

[SIZE="2"]'...
'... kodlar
'....
on error resume next
Sheets("KAYIT_ET").Range("V2:Y4").SpecialCells(xlCellTypeConstants, 3).Clear
End Sub[/SIZE]

 

[1Al2Ver]

Merhaba,

Kod ;

Sub Makro1()

    Range("V2:Y4").Select
    Selection.Copy
    Sheets("RAPOR_AL").Select
    Range("B2:F100").Select
    Application.Goto Reference:="R100C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("KAYIT_ET").Select
    Application.CutCopyMode = False
    Range("V6").Select
    On Error Resume Next
    Sheets("KAYIT_ET").Range("V2:Y4").SpecialCells(xlCellTypeConstants, 3).Clear
End Sub

Ancak silme işlemi gerçekleşmedi, bir yerde hata mı yaptım ?

Teşekkür ederim.

 

[PLİNT]

Merhaba
Yukarıdaki kodlar
Sheets("KAYIT_ET").Range("V2:Y4") aralığındaki değerleri silmek içindir bu aralıktaki hücrelerin hepsinde formül varsa normal olarak bir işlem yapmayacaktır, kırmızı aralığı genişletebilirsiniz veya örnek dosya eklerseniz: www.dosya.tc

 

[1Al2Ver]

Sayın PLİNT merhaba,

Duyarlığınız için teşekkür ederim,

1 nci mesajda bu aralıkta (V2:Y4) formüller olduğunu, verilerin silinip formüllerin silinmemesini istediğimi belirtmiştim, sanırım gözünüzden kaçmış.

Bu aralığı sildirmek istersem ;
.......
Application.CutCopyMode = False
Range("V2:Y4").ClearContents
.........

kırmızı renkli kodu ilave edip halledebiliyorum,

Aradığım çözüm bu aralıktaki formülleri bozmadan silmek.

Tekrar teşekkür ederim.

 

[PLİNT]

Acaba sayfa adı yanlışmı oldu? (Sheets("KAYIT_ET"))
http://s3.dosya.tc/server14/ill5oy/deneme.zip.html

 

[1Al2Ver]

Sayın PLİNT merhaba,

Dosyanızı indirdim, zahmetleriniz için teşekkür ederim.

Uzun inceleme ve deneme-yanılma ile sorunun, = (Eşittir) ile alınan sonuçtan kaynaklandığını gördüm,

Başka bir yol deneyeceğim,

Tekrar teşekkür ederim.

Saygılarımla.

 

[Ömer BARAN]

Merhaba.

Maksatı anlamak için soruyorum.
Formüller kalsın ama değerler silinsin demek tam olarak nedir?

-- Hücre zemin rengi ile yazı rengini aynı yaparsanız değerler yokMUŞ gibi görünebilir.
Bu renk değişimi makro ile yapılabilir.

-- Ya da formüllerin tümüne bir ana koşul eklenir (herhangi sabit bir hücrenin 1'e eşit olması gibi) ve sadece o hücreye 1 yazdığınızda tüm formüller BOŞ sonuç döndürebilir.

Bence açıklama eksik/ihtiyaç net değil.
.

 

[1Al2Ver]

Merhaba Sayın Ömer BARAN,

İlginiz için teşekkür ederim,

"KAYIT_ET" sayfasındaki V2:Y4 aralığında formüller var,

ifadesinin doğrusu, daha anlaşılır olması için belkide şöyle olmalıydı;

"KAYIT_ET" sayfasında V2:Y4 aralığında, formüller ile gelen değerler var,

Yapılan işleme gelince ;

"KAYIT_ET" sayfasında formüllerle alınan V2:Y4 aralığındaki verileri makro ile RAPOR_AL sayfasına aktarıyorum,

İstediğim aktarma sonrası, "KAYIT_ET" sayfası V2:Y4 aralığındaki formüllerle alınan veriler silinsin, ancak verileri alan formüller silinmesin.

Bu işlemi de mevcut makroyla birlikte, yani ayrı bir makro olmadan gerçekleştirmek istiyorum,

 

[alicimri]

Sn 1Al2Ver
Tamam malro çalıştıktan sonra değerler gözükmeyecek. Değerler tekrar ne zaman görünmesi lazım

 

[Ömer BARAN]

Değerlerin gizlenmesi: Anladığım kadarıyla, sayfadaki alanın kopyalandığına dair, sayfaya bir iz bırakmak
(kopyalama makrosunun sonuna VERİ KAYDET sayfasında uygun bir hücreye 1 yazdırmak gibi),
sayfadaki formülleri de bu iz hücresine yazdırılan değer koşuluna göre boş sonuç döndürecek şekilde değiştirmek istenilen sonucu verir.

Değerlerin tekrar görünmesi: İz bırakılan hücre boşaltıldığında/silindiğinde formüller yine önceki değerleri üretecektir.
.

 

[1Al2Ver]

Merhaba,

Değerli arkadaşlar, göstermiş olduğunuz nezaket ve ilginize bir kere daha teşekkür ederim.

Bilgilendirmek amaçlı olarak ;

V2:Y4 aralığı verilerini, aynı sayfada başka hücrelerden formülle alıyor,

Şöyle bir çözüm uyguladım ; Aktarma sonrası V2:Y4'ün veri aldığı hücreleri boşalttım.

Saygılarımla.