Çözüldü Userfom Değer Değiştirme Grafiği

[Gata]

If CbKisiler.Value = "BURAK" Then Sayfa1.Range("B2") = TxtPUAN.Value

Bu Kodu Dinamik Olarak Diğerlere Göre Nasıl Yapılır Userform Açıldığında Tüm İsimlerin Değerleri Değiştirmek İstiyorum

 

[Muzaffer Ali]

Merhaba.
Formun tüm kodlarını silin aşağıdakileri kopyalayın.

Option Explicit

Private Sub BTNDEĞİŞTİR_Click()
    Dim Bul As Range
    If CbKisiler.ListIndex = -1 Then
        MsgBox "Lütfen önce listeden isim seçiniz."
        Exit Sub
    End If
    Set Bul = Range("A:A").Find(what:=CbKisiler.Value, lookat:=xlWhole)
    Bul(1, 2) = TxtPUAN.Value
    GrafikYukle
End Sub

Sub GrafikYukle()
    Dim mychart As Chart
    Set mychart = Sayfa1.Shapes("Grafik").Chart
    mychart.Export VBA.Environ("TEMP") & Application.PathSeparator & "grafikk.jpg"
    Image1.Picture = LoadPicture(VBA.Environ("TEMP") & Application.PathSeparator & "grafikk.jpg")
End Sub

Private Sub UserForm_Initialize()
    CbKisiler.RowSource = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Address
    CbKisiler.ListIndex = -1
    GrafikYukle
End Sub

 

[Gata]

TEŞEKKÜR EDERİM HOCAM OLDU

 

[Gata]

TEŞEKKÜR EDERİM HOCAM OLDU