Makro arama verilerini bir döngüde çalıştırmak

[Mustafaigcioglu]

Call AddRawData(IE, "https://www.gpro.net/tr/DriverProfile.asp?ID=" & Range("login!b3").Value, "Sürücü") Sheets("ARA").Select Range("B1:B12").Select Selection.Copy Range("C1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("ARA").Select Range("C1:C12").Select Selection.Copy Sheets("Sürücüler").Select Application.Goto Reference:="R1000000C1" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Sheets("Sürücü").Select ActiveCell.Range("A1:A12").Select Application.CutCopyMode = False Selection.ClearContents Sheets("Sürücüler").Select ActiveCell.Offset(1, 0).Range("A1").Select Sheets("login").Select Range("B3:B102").Select Selection.Copy Sheets("Sürücüler").Select Application.Goto Reference:="R1000000C13" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(-1, -12).Range("A1").Select Call AddRawData(IE, "https://www.gpro.net/tr/DriverProfile.asp?ID=" & Range("login!b4").Value, "Sürücü") Sheets("ARA").Select Range("B1:B12").Select Selection.Copy Range("C1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("ARA").Select Range("C1:C12").Select Selection.Copy Sheets("Sürücüler").Select Application.Goto Reference:="R1000000C1" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Sheets("Sürücü").Select ActiveCell.Range("A1:A12").Select Application.CutCopyMode = False Selection.ClearContents Sheets("Sürücüler").Select ActiveCell.Offset(1, 0).Range("A1").Select Sheets("login").Select Range("B3:B102").Select Selection.Copy Sheets("Sürücüler").Select Application.Goto Reference:="R1000000C13" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(-1, -12).Range("A1").Select Arkadaşlar benim bir sorum olacak. Yukarıdaki kodlar benim yapmış olduğum makronun bir bölümüdür. Range("login!b3").Value, "Sürücü") Bu kısımdaki login!b3 kısmını Tek bir kodla login!b102 ye kadar yazmak çok zor olacağı için bunun bir kısa yolu varmıdır.

 

[Korhan Ayhan]

Merhaba,

Döngü kullanabilirsiniz.

For Each Rng In Sheets("login").Range("B3:B102")
   Rem Buraya kendi kodlarınızı yazınız...
Next

Aşağıdaki satırdaki koyu renkli bölümü ekleyiniz.

Call AddRawData(IE, "https://www.gpro.net/tr/DriverProfile.asp?ID=" & Rng.Value, "Sürücü")

 

[Mustafaigcioglu]

Merhaba,

Döngü kullanabilirsiniz.

For Each Rng In Sheets("login").Range("B3:B102")
   Rem Buraya kendi kodlarınızı yazınız...
Next

Aşağıdaki satırdaki koyu renkli bölümü ekleyiniz.

Call AddRawData(IE, "https://www.gpro.net/tr/DriverProfile.asp?ID=" & Rng.Value, "Sürücü")

Teşekkürler hocam. Bir deneyelim bakayım olacak mı. Sonra geri dönüş yaparım size.

 

[Mustafaigcioglu]

Merhaba,

Döngü kullanabilirsiniz.

For Each Rng In Sheets("login").Range("B3:B102")
   Rem Buraya kendi kodlarınızı yazınız...
Next

Aşağıdaki satırdaki koyu renkli bölümü ekleyiniz.

Call AddRawData(IE, "https://www.gpro.net/tr/DriverProfile.asp?ID=" & Rng.Value, "Sürücü")

Biraz önce yaptım. Oldu. Çok teşekkür ederim hocam.