Değiştir fonksiyonu

[Dbchayley]

Merhaba,

Private Sub CommandButton2_Click()
If ComboBox1 = "" Then
MsgBox "Listeden Değiştilecek Ürün adı seçilmemiş", vbCritical, " HATA"
Exit Sub
End If
Sheets(1).Select
ComboBox1.RowSource = "DATA1!A2:A" & Sheets(1).Cells(65536, "A").End(xlUp).Row
If MsgBox("Ürün Eski Adı : " & Sheets(1).Range("A" & ComboBox1.ListIndex + 2) & "" & vbLf & "" & vbLf & "Ürün Yeni Adı : " & TextBox1.Value & "", vbQuestion + vbYesNo, " ÜRÜN ADI DEĞİŞTİRİLECEK") = vbNo Then: Exit Sub
Sheets(1).Range("A" & ComboBox1.ListIndex + 2) = TextBox1.Value
TextBox1 = Empty
ComboBox1 = Empty
ComboBox1.RowSource = Empty
End Sub

değiştir fonksiyonu değiştirdim demesine rağmen değiştirme yapmıyor. Bu konuda yardımcı olabilirmisiniz. Şimdiden yardımlarınız için teşekkür ederim.

 

[YUSUF44]

Şöyle dener misiniz?

Private Sub CommandButton2_Click()
If ComboBox1 = "" Then
MsgBox "Listeden Değiştilecek Ürün adı seçilmemiş", vbCritical, " HATA"
Exit Sub
End If
Sheets(1).Select
ComboBox1.RowSource = "DATA1!A2:A" & Sheets(1).Cells(65536, "A").End(xlUp).Row
If MsgBox("Ürün Eski Adı : " & Sheets(1).Range("A" &  ComboBox1.ListIndex + 2) & "" & vbLf & "" & vbLf &  "Ürün Yeni Adı : " & TextBox1.Value & "", vbQuestion + vbYesNo, "  ÜRÜN ADI DEĞİŞTİRİLECEK") = vbyes Then
Sheets(1).Range("A" & ComboBox1.ListIndex + 2) = TextBox1.Value
TextBox1 = Empty
ComboBox1 = Empty
ComboBox1.RowSource = Empty
msgbox("Değişiklik yapıldı")
end if
End Sub

 

[Dbchayley]

değişiklik yapıldı mesajı geliyor fakat güncellediğim bilgiler değişmiyor.

 

[Dbchayley]

İsterseniz dosyayı ekleyebilirim.

 

[Dbchayley]

Dosya ektedir.

 

[Dbchayley]

cevap verebilecek kimse yok mu?

 

[Muzaffer Ali]

değiştir i tıklatınca sadece ürün kodu değiştiriliyor

Değiştiren satır bu

Sheets(1).Range("A" & ComboBox1.ListIndex + 2) = TextBox1.Value

diğerleri için de kod yazılmalı
Aşağıdaki kod ürün açıklamasını değiştirir

Sheets(1).Range("B" & ComboBox1.ListIndex + 2) = TextBox2.Value

diğerlerini de bu kodlara bakarak kendiniz ekleyebilirsiniz

kolay gelsin

 

[Dbchayley]

yardımların için teşekkür ederim. Halloldu.