MAKRO KODU İLE KOPYALA-DEĞER YAPIŞTIR

[Kusta]

Üstadlar merhaba,
Makroyu çalıştırdığımda; "A" sütununda "evet" yazan hücreyi bulup, karşısına yani "B" sütununa "C1"de yazan veriyi kopyalayıp-değer yapıştır yapmasını istiyorum. Yardımcı olabilirmisiniz.
Şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Merhaba aşağıdaki yapay zekanın oluşturduğu kodu deneyiniz
Sub VeriKopyalaYapistir()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

' Çalışma yapılacak sayfayı belirle
Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını değiştirin gerekirse

' Son satırı bul
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' A sütununu kontrol et ve işlemi yap
For i = 1 To lastRow
If ws.Cells(i, "A").Value = "EVET" Then
' "A" sütununda "evet" bulunduğunda yapılacak işlemler
ws.Cells(i, "B").Value = ws.Range("C1").Value ' "C1" hücresindeki değeri "B" sütununa yapıştır
Exit For ' İlk eşleşmeyi bulduktan sonra döngüden çık
End If
Next i
End Sub

 

[ccuneyt13]

Merhaba,
Verilerinizin A2'den başlayacağı varsayılmıştır.
Çalışacağınız sayfanın ismi farklı ise kodda Sayfa1 yazan yeri ona göre güncelleyebilirsiniz.

Sub Yapistir()
Application.ScreenUpdating = False
Dim S1, Son, i
Set S1 = ThisWorkbook.Sheets("Sayfa1")
Son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(xlUp).Row
S1.Range("B2:B" & S1.Rows.Count).ClearContents

For i = 2 To Son


If S1.Cells(i, "A") = "Evet" Or S1.Cells(i, "A") = "EVET" Or S1.Cells(i, "A") = "evet" Then

S1.Cells(i, "B") = S1.Cells(i, "C")
Else

End If

Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation
End Sub