+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Değerleri Yapıştırma (/konu-degerleri-yapistirma.html)
Sayfalar:
1
2
Makro İle Değerleri Yapıştırma - yyhy - 02/02/2022
Değerleri makro ile aşağıya doğru son ilk boşluğa değerleri olarak yapıştırmak istiyorum ama E9 hücresine yapıştırıyor.
Sub kopyala()
Range("E4:R4").Select
Selection.Copy
Range("E5").Select
Selection.End(xlDown).Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E4").Select
Application.CutCopyMode = False
End Sub
Makro kodunda nereyi düzeltmem gerekir.
Değerleri Yapıştırma - yyhy - 02/02/2022
Değerleri makro ile aşağıya doğru son ilk boşluğa değerleri olarak yapıştırmak istiyorum ama E9 hücresine yapıştırıyor.
Sub kopyala()
Range("E4:R4").Select
Selection.Copy
Range("E5").Select
Selection.End(xlDown).Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E4").Select
Application.CutCopyMode = False
End Sub
Makro kodunda nereyi düzeltmem gerekir.
RE: Değerleri Yapıştırma - berduş - 02/02/2022
Yapıştırma işleminden önce aşağıdaki kodla E9 hücresi seçildiği için oraya yapıştırıyor olabilir. O satırı silerek dener misiniz?
Range("E9").SelectRE: Değerleri Yapıştırma - yyhy - 02/02/2022
Sayın @berduş bey denedim son dolu satıra yazıyor.
RE: Değerleri Yapıştırma - berduş - 02/02/2022
Selection.PasteSpecial... yerine
Selection.offset(1).PasteSpecial yazmayı dener misiniz
RE: Değerleri Yapıştırma - mozuer - 02/02/2022
Bu kodu da deneyebilirsiniz...
Dim xlSht As Worksheet
Dim iRw As Integer
Dim myRng As Range
Set xlSht = ActiveWorkbook.Worksheets("SheetName")
With xlSht
iRw = .Range("E" & .Rows.Count).End(xlUp).Row + 1
Set myRng = .Range("E4:R4")
With myRng
xlSht.Range("E" & iRw).Resize(.Rows.Count, .Columns.Count).Cells.Value2 = .Cells.Value2
End With
End With
Set xlSht = Nothing
Set myRng = Nothing