Makro ile diğer sayfalardan veri çekmek?

[sserkanmurata]

vizite ekranına tek tek verileri aldırabiliyorum fakat verileri şifre isimli diğer sayfadan almak istiyorum excelde veriler güncellendikten sonra tek tek değiştirmek adına böyle bir şey arıyorum.

.document.all.kullaniciAdi.Value = "Ali"
.document.all.sifre.Value = "ali123"

Şimdiden ilginiz ve yönlendirmeleriniz için teşekkür ederim

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıkla()
isim = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, -1).Value
Set xd = CreateObject("internetexplorer.application")
With xd
    .navigate "https://uyg.sgk.gov.tr/vizite/welcome.do"
    .Visible = True
    Do While .busy: DoEvents: Loop
    Do While .readystate <> 4: DoEvents: Loop
    .document.all.kullaniciAdi.Value = Application.VLookup(isim, Sheets("Şifre").Range("A:C"), 2, 0)
    .document.all.isyeriSifresi.Value = Application.VLookup(isim, Sheets("Şifre").Range("A:C"), 3, 0)
End With
End Sub