Basit bir eğer makrosu

[quixotic79]

merhaba arkadaşlar yapmak istediğim şey şudur; eğer A1 hücresi ile O1 hücresini karşılaştıracak.Hücre içerisindeki değerlerin aynı olması durumunda (bu değerler 1 den 31 e kadar sayı olacak) P1 içerisinde yazan değeri L1 hücresine aynen yazacak. Bunu bahsettiğim hücre sütunlarının tamamı için yapacak. Değerleri kopyala yapıştır ile getireceğim. Makronun hangi eylemden sonra çalışacağını da belirtirseniz memnun olurum manuel olarak ta çalıştırabilirim. Şimdiden teşekkürler.

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub karşılaştır()
Application.ScreenUpdating = False
On Error Resume Next
Range("L1:L65536").ClearContents
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, "a").Value = Cells(i, "o").Value Then Cells(i, "L") = Cells(i, "p")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirin ve bir butona bağlayarak çalıştırın.
İyi çalışmalar.