fiyat güncelle diğer sayfadan (buton ile)

[netvolxxx]

merhaba çalışma sayfamda 2 nolu sayfada eski fiyatlar var sayfa 1 de yeni fiyatlar buton ile güncelle dediğimde ürün adı sayfa 2 de eşleşenlerin fiyatları güncellemesini ayrıca sayfa1 de fiyat listesi alanı var r 2 de mesaj ile fiyat listeniz yazan tarihe göre ürünlerin fiyatları güncelleme olcaktır evet hayır şartı ile bu işlemi kod olarak nasıl yapabiliriz...

excel dosyasını yükledim örnek olarak yardımcı olcak arkadaşlardan allah razı olsun...

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton1_Click()
    Dim SonSatir As Long
    If MsgBox(Sayfa2.Range("R2").Value & " tarihli fiyatlar uygulanacaktır. Onaylıyor musunuz?", vbYesNo + vbQuestion) = vbYes Then
        SonSatir = Cells(Rows.Count, "C").End(xlUp).Row
        With Range("D2:D" & SonSatir)
            .FormulaLocal = "=DÜŞEYARA(C2;Sayfa1!A:B;2;0)"
            .Value = .Value
        End With
        MsgBox "Fiyatlar güncellendi", vbInformation
    End If
End Sub

 

[netvolxxx]

Merhaba.

Private Sub CommandButton1_Click()
    Dim SonSatir As Long
    If MsgBox(Sayfa2.Range("R2").Value & " tarihli fiyatlar uygulanacaktır. Onaylıyor musunuz?", vbYesNo + vbQuestion) = vbYes Then
        SonSatir = Cells(Rows.Count, "C").End(xlUp).Row
        With Range("D2:D" & SonSatir)
            .FormulaLocal = "=DÜŞEYARA(C2;Sayfa1!A:B;2;0)"
            .Value = .Value
        End With
        MsgBox "Fiyatlar güncellendi", vbInformation
    End If
End Sub

istediğim buydu teşekkür ederim muzaffer bey allah razı olsun....

 

[Muzaffer Ali]

Rica ederim. Allah hepimizden razı olsun.