Kullanıcı
- Katılım
- 5 Ağu 2021
- Mesajlar
- 138
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Selamlar,
Konuda belirttiğim işlem için desteğe ihtiyacım var. Kurcalayarak bu işlemin temelini oluşturdum.
Sub atama()
basla = Timer: While (Timer - basla) < 0.5: Wend
Set ie = VBA.CreateObject("internetexplorer.application")
URL = "site.com/atama.asp"
With ie
.Navigate URL
.Visible = True
Do While .Busy: DoEvents: Loop: Do While Not .readyState = 4: DoEvents: Loop
basla = Timer: While (Timer - basla) < 0.5: Wend
.document.getElementsbyname("TICKETID")(0).Value = Range("A2") // Kayıtlar "," ayrılarak tek hücrede birleşerek iletilecek. Örn: 12069963,1218272
.document.getElementsbyname("ATANACAK")(0).Value = Range("B2") // Atama yapılacak kullanıcı 1 kez yazacak örn: cansel
ie.document.querySelector("input[type=button]").Click
ie.document.querySelector("input[value=' Kaydet ']").Click
// İşlem tamamlandıktan sonra aynı web sayfa yenilenecek ve sonraki kişi atamasına geçecek. (Her işlem yapılınca 5 saniye bekleyip sayfa yenilenecek.)
End With
End Sub
Örneğin;
TICKETID'e gidecek: 12069963,12182722
ATANACAK'a gidecek: cansel
Konuda belirttiğim işlem için desteğe ihtiyacım var. Kurcalayarak bu işlemin temelini oluşturdum.
Sub atama()
basla = Timer: While (Timer - basla) < 0.5: Wend
Set ie = VBA.CreateObject("internetexplorer.application")
URL = "site.com/atama.asp"
With ie
.Navigate URL
.Visible = True
Do While .Busy: DoEvents: Loop: Do While Not .readyState = 4: DoEvents: Loop
basla = Timer: While (Timer - basla) < 0.5: Wend
.document.getElementsbyname("TICKETID")(0).Value = Range("A2") // Kayıtlar "," ayrılarak tek hücrede birleşerek iletilecek. Örn: 12069963,1218272
.document.getElementsbyname("ATANACAK")(0).Value = Range("B2") // Atama yapılacak kullanıcı 1 kez yazacak örn: cansel
ie.document.querySelector("input[type=button]").Click
ie.document.querySelector("input[value=' Kaydet ']").Click
// İşlem tamamlandıktan sonra aynı web sayfa yenilenecek ve sonraki kişi atamasına geçecek. (Her işlem yapılınca 5 saniye bekleyip sayfa yenilenecek.)
End With
End Sub
Örneğin;
TICKETID'e gidecek: 12069963,12182722
ATANACAK'a gidecek: cansel
- Kullanıcısı kısmı boş olmayan kayıtlar dahil edilmeyecek. Bunların zaten web formuna iletilen kayıtlar. Biz burada doldurduğumuz kayıtları web e göndereceğiz.
