A sütunundaki verileri B sütununa değer olarak aktarmak

[takkan]

saygı değer arkadaşlar bir bilgi rica ediyorum misal a1-a100 hücreleri arasındaki dinamik değişken hüçreleri (devamli değişiyor çünkü başka bir excel dosyasından alıyor bu a1-a100 hücresindeki değerleri b1-b100 arasındaki hücrelerekopyalamak istiyorum fakat b1-b100 hücrelerine kopyalanan değerler değişmesin tahmin ediyorum küçük bir macro ile olur bu macro programcığı hakkında bana yardımcı olabilecek bir yardım istiyorum

 

[Cengiz Demir]

Kodları deneyemiyorum. Bir deneyin isterseniz.

Sub kopyala()

Range("B1:B100") = Range("A1:A100")

End Sub

 

[muhasebeciyiz]

Sub deneme()

Range("A1:A100").Select
Application.CutCopyMode = False
Selection.Copy

Range("B1:B100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

 

[takkan]

teşşekkür ederim muhasebeciyiz formulünüz çalıştı

 

[MusaPEKEL]

Sub VeriAktar()
    Dim ws As Worksheet
    Dim sonSatir As Long
    
    ' Çalışma sayfasını belirle (örneğin, Sayfa1)
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    
    ' A sütunundaki son satırı bul
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' A sütunundaki verileri B sütununa aktar
    ws.Range("B1:B" & sonSatir).Value = ws.Range("A1:A" & sonSatir).Value
End Sub