DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
VALUEBir hücredeki değeri başka bir hücreye yazdırmak için makro kodu olarak kullanılan "copy" mi yoksa "value" mi daha hızlı çalışır ?
Sub VeriKaydet()
A = CStr(Sheets("Veri").[U7])
If MsgBox("Eksik bir şey olmadığına emin misin?", vbYesNo) = vbNo Then Exit Sub
Sheets("VeriTabanı").Rows(A + 2).Value = Sheets("VeriTabanı").Rows(1).Value
Sheets("Raporlar").Range("B6:X59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Sheets("Raporlar").Range("L4").Value = Sheets("Raporlar").Range("U8").Value
End Sub
Sub VeriKaydet2()
A = CStr(Sheets("Veri").[U7])
If MsgBox("Eksik bir şey olmadığına emin misin?", vbYesNo) = vbNo Then Exit Sub
Sheets("VeriTabanı").Rows(1).Copy Sheets("VeriTabanı").Rows(A + 2)
Range("B6:X59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Range("U8:W8").Copy Range("L4:O4")
End Sub