Soru Siteye Yönlendirme Butonu

[rabidhare]

Merhaba,

Aşağıdaki kod ile Excel formumdaki butona tıkladığımda istediğim siteye yönlendirebiliyorum, ama URL alanında düzenleme yapmam gerekiyor.
Örneğin Excel sayfasındaki "E4" satırındaki veriyi url nin sonuna göndermem gerekiyor. Örneğin : adres = "

https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=E4 SATIRINDAKİ VERİ

" şeklinde. bunu nasıl yapabilirim?, yardımlarınızı bekliyorum saygılarımla.

Private Sub CommandButton1_Click() Dim internet As Object Dim adres As String adres = "https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=" Set internet = CreateObject("WScript.Shell") internet.Run "chrome.exe " & adres End Sub
Siteye Yönlendirme Butonu (Yardım)

 

[Korhan Ayhan]

Deneyiniz.

adres = "https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=" & Sheets("Sayfa1").Range("E4").Value

 

[rabidhare]

Yorumunuz için öncelikle teşekkürler, denedim ama runtime 9 hatası veriyor.

 

[Korhan Ayhan]

Satırı kendinize göre düzenleyip denediniz değil mi?

 

[rabidhare]

Satırı kendinize göre düzenleyip denediniz değil mi?

Düzeltiyorum, çalıştı ben yanlış yapmışım ellerinize sağlık çok teşekkür ederim size,

Ayrıca bunu aşağıyadaki sütunlar içinde geçerli yapmak istiyorum örneğin bu yaptığımız işlem tek bir buton içindi diğer tüm butonlar içinde aynı işi yapmak istiyorum ama buton E4 sütunu değilde E5 sütünündakini sona ekleyecek, yani bir döngü gerekiyor, e100 e kadar gidiyor yani.

Bu konudaki yardımınızı bekliyorum Korhan bey

 

[Korhan Ayhan]

Aşağıdaki gibi uygulayabilirsiniz.

Döngü Sayfa1 isimli sayfada "E4:E" & Son dolu hücreye kadar devam edecektir.

With Sheets("Sayfa1")
For X = 4  To .Cells(.Rows.Count, "E").End(3).Row
     adres = "https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=" & .Cells(X, "E").Value
Next
End With

 

[rabidhare]

Bu kodu tam olarak nerde kullanmam gerekiyor, nereye yazmalıyım, yeni başladığım için çok bilgim yok

Teşekkür ederim, ilginiz için ve destekleriniz için

Aşağıdaki gibi uygulayabilirsiniz.

Döngü Sayfa1 isimli sayfada "E4:E" & Son dolu hücreye kadar devam edecektir.

With Sheets("Sayfa1")
For X = 4  To .Cells(.Rows.Count, "E").End(3).Row
     adres = "https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=" & .Cells(X, "E").Value
Next
End With

 

[Korhan Ayhan]

Bir butona atayıp kullanabilirsiniz.

 

[rabidhare]

Butona yazdığımda hata veriyor

Bir butona atayıp kullanabilirsiniz.

 

[Korhan Ayhan]

Nasıl yazıyorsunuz?

 

[rabidhare]

Bu verdiğiniz kodu yeni bir buton oluşturup içine kopyalıyorum.

Nasıl yazıyorsunuz?

With Sheets("Sayfa1")
For X = 4  To .Cells(.Rows.Count, "E").End(3).Row
     adres = "https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=" & .Cells(X, "E").Value
Next
End With

 

[Korhan Ayhan]

Nasıl bir buton bu?

 

[rabidhare]

Nasıl bir buton bu?

Private Sub CommandButton2_Click() bu şekilde

 

[Korhan Ayhan]

Tamam bir sorun görünmüyor.

Kodda ki sayfa adını (Sayfa1) kendinize göre düzenlediniz değil mi?

 

[rabidhare]

Tamam bir sorun görünmüyor.

Kodda ki sayfa adını (Sayfa1) kendinize göre düzenlediniz değil mi?

Evet düzenledim, şimdi tekrar denedim, tıkladığımda hata da vermiyor herhangi bir etkileşimde olmuyor, webpage açılmıyor.

 

[Korhan Ayhan]

Tabi ki çalışması için;

İlk mesajınızda paylaştığınız diğer satırları da koda eklemeniz gerekiyor. Ben sadece işin döngü kısmını paylaştım. Diğer kodun içine adapte etmeniz gerekiyor.

Aşağıdaki gibi deneyiniz.

Private Sub CommandButton2_Click()
Dim internet As Object
Dim adres As String

Set internet = CreateObject("WScript.Shell")

With Sheets("Sayfa1")
For X = 4  To .Cells(.Rows.Count, "E").End(3).Row
     adres = "https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=" & .Cells(X, "E").Value
     internet.Run "chrome.exe " & adres
Next
End With
End Sub

 

[rabidhare]

Böyle bir kod denedim ama tıkladığımda tüm E satırındaki herşeyi webpage'de açıyor, yani 3-4 adet sekme açıyor, sadece sıradaki E satırını açması gerekiyor, yani her E satırının yanındaki buton, bağlı olduğu satırdaki veriyi açması gerekiyor.

Private Sub CommandButton2_Click()
Dim internet As Object
Dim adres As String
With Sheets("Sayfa2")
For X = 4 To .Cells(.Rows.Count, "E").End(3).Row
     adres = "https://mydhl.express.dhl/tr/tr/tracking.html#/results?id=" & .Cells(X, "E").Value
     Set internet = CreateObject("WScript.Shell")
internet.Run "chrome.exe " & adres
Next
End With
End Sub

 

[Korhan Ayhan]

O zaman döngü kullanmayacaksınız.

Siz döngü dediğiniz için döngü önermiştim.

Bu durumda kodu eski haline alıp her satırdaki buton için kodu tekrarlayıp hücre adresini değiştirmeniz gerekecektir.