Bul ve Değeri Değiştir

[ozdogan]

Merhaba
Elimde Bir Excel Tablosu Var.
Product Sayfasında
L2 DEN BAŞLAYAN SUTUN MODEL KODLARI
P2 DEN BAŞLAYAN SUTUN DA İSE FİYATLARI
yazmaktadır.
Liste biraz karışık.
Şunu yapmak istiyorum
Örneğin: Model Numarası "MG" ile başlayanları bul fiyatını 0,833 yap.

ProductOptionValues Sayfasında ise
C2 DEN BAŞLAYAN SUTUNDA OPTİON_VALUE DEĞERLERİ
F2 DEN BAŞLAYAN SUTUNDA İSE OPTİON VALUENIN FİYATLARI YAZMAKTADIR
Burda da aynı şeyi yapmak istiyorum
Örneğin: "Karton" ile başlayanları bul fiyatını 1,55 yap.

Konu ile alakalı küçük bir dosya ekledim.
Bu konuda yardımcı olabilirseniz sevinirim.
Teşekkürler

http://dosya.co/fhi9jv1w9qpu/test.xlsx.html

 

[alicimri]

Aşağıdaki kodu deneyin.

Sub Makro3()
  Columns("l:l").Select
  A = Selection.Find(What:="MG*")
  say = WorksheetFunction.CountIf(Selection, "MG*")
  For i = 1 To say
      Selection.FindNext(After:=ActiveCell).Activate
      ActiveCell.Offset(0, 4).Value = 0.833
      Next

End Sub

 

[Mustafa MUTLU]

Alternatif olsun
alicimri nin yanıtını görmedim.

Sub Model_Numarası()
    Veri = InputBox("Aranan Veriyi Belirtiniz", "ARANAN VERİ", "")
    Veri1 = InputBox("Yeni FİATI Belirtiniz", "YENİ FİAT", "")
    ArnanVeri = "*" & Veri & "*"
    Sayac = 0
    For i = 1 To Cells(65536, "L").End(xlUp).Row
        If WorksheetFunction.CountIf(Cells(i, "L"), ArnanVeri) > 0 Then
            Cells(i, "P") = Veri1
            Sayac = Sayac + 1
        End If
    Next i
    MsgBox "Aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Veri1 & " olarak düzeltildi."
End Sub
Sub OPTİON_BUL_DEGISTIR()
    Veri = InputBox("Aranan Veriyi Belirtiniz", "ARANAN VERİ", "")
    Veri1 = InputBox("Yeni FİATI Belirtiniz", "YENİ FİAT", "")
    ArnanVeri = "*" & Veri & "*"
    Sayac = 0
    For i = 1 To Cells(65536, "C").End(xlUp).Row
        If WorksheetFunction.CountIf(Cells(i, "C"), ArnanVeri) > 0 Then
            Cells(i, "F") = Veri1
            Sayac = Sayac + 1
        End If
    Next i
    MsgBox "Aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Veri1 & " olarak düzeltildi."
End Sub