[Yardım]  Clear komutu formülüde temizliyor

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Clear komutu formülüde temizliyor

İleti#1)  Tr-GhostCu » 18 May 2020 09:54

Merhaba Arkadaşlar elimde bu kod varda korumalı sayfaya veri taşıyor şimdi iki sorun var taşırken formülüde taşıyor ben formülü taşımasını istemiyorum sadece veriyi istiyorum birde aynı şekilde verileri girdiğim sayfada da koruma var bunada yardımcı olurmusunuz teşekkürler hayırlı ramazanlar

Kod: Tümünü seç
Sub Yedekle()
    Dim cevap As Integer
    cevap = MsgBox("Veriler yedeklenecek, Emin misiniz?", vbYesNo + vbQuestion, "Yedekle")
    If cevap = vbYes Then
        Worksheets("ZİYARETÇİ KAYIT").Unprotect "eslMlk16OmrTlh19"
        Dim kaynak As Worksheet
        Set kaynak = ThisWorkbook.Worksheets("Kayıt")
        kaynak.Select
        kSonSatir = kaynak.Range("C50000").End(xlUp).Row

        Dim hedef As Worksheet
        Set hedef = ThisWorkbook.Worksheets("ZİYARETÇİ KAYIT")
        hedef.Select
        hSonSatir = hedef.Range("C50000").End(xlUp).Row + 1
        kaynak.Range("B3:M" & kSonSatir).Copy
        hedef.Range("B" & hSonSatir).PasteSpecial Paste:=xlPasteValues
        kaynak.Select
        kaynak.Range("B3:M" & kSonSatir).ClearContents
        kaynak.Range("B" & kSonSatir + 1 & ":M" & kSonSatir + 1).Select
        Selection.Copy
        kaynak.Range("B3:M" & kSonSatir).Select
        ActiveSheet.Paste
        kaynak.Range("B3").Select
        Application.SendKeys "{ESC}"
        Worksheets("ZİYARETÇİ KAYIT").Protect "eslMlk16OmrTlh19"
       
    Else
        MsgBox "Yedekleme işlemi iptal edildi."
    End If

End Sub
Kullanıcı avatarı
Tr-GhostCu
 
Kayıt: 10 May 2020 10:11
Meslek: ddddd
Yaş: 28
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Hatay

Cevap: Clear komutu formülüde temizliyor

İleti#2)  Tr-GhostCu » 18 May 2020 09:56

yanlış oldu taşırken sıkıntı yokta taşıyor clear komutu formülüde temizliyor.
Kullanıcı avatarı
Tr-GhostCu
 
Kayıt: 10 May 2020 10:11
Meslek: ddddd
Yaş: 28
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Hatay

Cevap: Clear komutu formülüde temizliyor

İleti#3)  dvtyksl » 18 May 2020 10:56

Örnek dosya paylaşırsanız sorunuzun cevabını daha hızlı alırsınız.
Kullanıcı avatarı
dvtyksl
Yeni Başlamış
 
Kayıt: 12 Oca 2015 15:29
Meslek: Muhasebe
Yaş: 36
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA/OSMANGAZİ

Cevap: Clear komutu formülüde temizliyor

İleti#4)  şahin » 18 May 2020 20:11

Kod: Tümünü seç
Sub aktar()
Sayfa2.Unprotect "111"
Sayfa2.Range(Sayfa1.UsedRange.Address).Value = Sayfa1.Range(Sayfa1.UsedRange.Address).Value
Sayfa2.Protect "111"
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1007
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], SkyGod ve 2 misafir

cron
Bumerang - Yazarkafe