makrolarda yazan kodlar şunlar;
Sub getprice()
'
' getprice Macro
' Macro recorded
'
' Keyboard Shortcut: Ctrl+g
'
For Each c In Selection
Pattern = c.Offset(0, -3)
For Each finishcell In Worksheets("Sheet1").Range("D2:D28356")
If finishcell.Formula = Pattern Then
c.Formula = finishcell.Offset(0, 2)
Exit For
End If
Next
Next
End Sub
Sub getline()
'
' getprice Macro
' Macro recorded
'
' Keyboard Shortcut: Ctrl+l
' Dim sayi as integer
sayi = 0
For Each c In Selection
Pattern = c.Formula
For Each finishcell In Worksheets("FORD A.M.").Range("B2:B4500")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
If sayi = 0 Then
For Each finishcell In Worksheets("MERCEDES").Range("B2:B560")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If
If sayi = 0 Then
For Each finishcell In Worksheets("SPECIAL PRICED O.E.").Range("B2:B1800")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If
If sayi = 0 Then
For Each finishcell In Worksheets("O.E. LCV").Range("B2:B30000")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If
If sayi = 0 Then
For Each finishcell In Worksheets("O.E. CARS").Range("B2:B49000")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If
sayi = 0
Next
End Sub
0