- Katılım
- 5 Nisan 2008
- Mesajlar
- 352
- Excel Vers. ve Dili
-
Microsoft Office Standard 2010 TR
32 Bit
- Altın Üyelik Bitiş Tarihi
- 31-01-2024
Merhaba arkadaşlar.
2 Adet Kod yazdım. Bunları tek tuşla ikisini aynı anda çalıştıra bilirmiyim?
Sub dsyara()
Dim x1 As Worksheet
Dim x2 As Worksheet
Set x1 = Sheets("Data")
Set x2 = Sheets("Veri")
x1.Range("a2:a5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 4, 0), "")
x1.Range("l2:l5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 10, 0), "")
x1.Range("j2:j5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 3, 0), "")
x1.Range("k2:k5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 5, 0), "")
End Sub
Sub carp()
With Sheets("Data").Range("h2:h5000")
.Formula = "=Data!f2*Data!k2"
.Value = .Value
End With
With Sheets("Data").Range("I2:I5000")
.Formula = "=Data!G2*Data!k2"
.Value = .Value
End With
End Sub
2 Adet Kod yazdım. Bunları tek tuşla ikisini aynı anda çalıştıra bilirmiyim?
Sub dsyara()
Dim x1 As Worksheet
Dim x2 As Worksheet
Set x1 = Sheets("Data")
Set x2 = Sheets("Veri")
x1.Range("a2:a5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 4, 0), "")
x1.Range("l2:l5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 10, 0), "")
x1.Range("j2:j5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 3, 0), "")
x1.Range("k2:k5000") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(x1.Range("c2:c5000"), x2.Range("a:j"), 5, 0), "")
End Sub
Sub carp()
With Sheets("Data").Range("h2:h5000")
.Formula = "=Data!f2*Data!k2"
.Value = .Value
End With
With Sheets("Data").Range("I2:I5000")
.Formula = "=Data!G2*Data!k2"
.Value = .Value
End With
End Sub