Hücre değeri değiştirme

[muratgunay48]

Arkadaşlar, sayın hocalarım, belki size kolay gelecek ama bir türlü tam yerine koyamadım.
Mesela A1=AAA ise ve B1=100 ise makroyu çalıştırınca A1'e B1'in yüzde 2'sini yazsın. Yani A1 'in yeni değeri 8 olarak değişecek.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[RBozkurt]

İşlem mantığını anlayamadım. B'nin %2 si A'ya yazacaksa zaten A'daki değerin bir anlamı yok.
Direk A sütununa B'nin %2Si yazılacak sanırım ?

Sub Ornek()
    Dim lastRow As Long
    Dim i As Long
   
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
   
    For i = 1 To lastRow
        If Not IsEmpty(Cells(i, "B")) Then
            Cells(i, "A") = Cells(i, "B") * 0.02
        End If
    Next i
End Sub

 

[yanginci34]

Sayfa ismini kendinize göre uyarlayarak denermisiniz.

Sub yuzde()
If Sheets("Sayfa1").Cells(1, 1) = "AAA" And Sheets("Sayfa1").Cells(1, 2).Value = 100 Then
Sheets("Sayfa1").Cells(1, 1).Value = (Sheets("Sayfa1").Cells(1, 2).Value / 100) * 8
End If
End Sub

 

[muratgunay48]

Sayfa ismini kendinize göre uyarlayarak denermisiniz.

Sub yuzde()
If Sheets("Sayfa1").Cells(1, 1) = "AAA" And Sheets("Sayfa1").Cells(1, 2).Value = 100 Then
Sheets("Sayfa1").Cells(1, 1).Value = (Sheets("Sayfa1").Cells(1, 2).Value / 100) * 8
End If
End Sub

Çok teşekkür ederim.