Mahmut1976
Altın Üye
- Katılım
- 22 Temmuz 2019
- Mesajlar
- 32
- Excel Vers. ve Dili
- Ofis7
- Altın Üyelik Bitiş Tarihi
- 11-03-2025
sutun = 5
altprogramsay = CLng(UBound(Split(meb.FindElementById("cmbAltProgram").Text, vbLf)))
If altprogramsay > 1 Then baslangic = 2 Else baslangic = 1
meb.FindElementById("cmbAltProgram").Click
For a = baslangic To altprogramsay
meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById("cmbModulAdi").Text, vbLf)))
For b = 2 To ModulAdisay
meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Click
BolumAdisay = CLng(UBound(Split(meb.FindElementById("cmbBolumAdi").Text, vbLf)))
For c = 2 To BolumAdisay
meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Text & "/" & meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Text
Next c
Next b
Next a
sutun = 5
altprogramsay = CLng(UBound(Split(meb.FindElementById("cmbAltProgram").Text, vbLf)))
If altprogramsay > 1 Then baslangic = 2 Else baslangic = 1
meb.FindElementById("cmbAltProgram").Click
For a = baslangic To altprogramsay
meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById("cmbModulAdi").Text, vbLf)))
For b = 2 To ModulAdisay
meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Click
BolumAdisay = CLng(UBound(Split(meb.FindElementById("cmbBolumAdi").Text, vbLf)))
For c = 2 To BolumAdisay
meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Text & "/" & meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Text
Next c
Next b
Next a
vba kodunu Pyhthon koduna nasıl cevirebilirim.
altprogramsay = CLng(UBound(Split(meb.FindElementById("cmbAltProgram").Text, vbLf)))
If altprogramsay > 1 Then baslangic = 2 Else baslangic = 1
meb.FindElementById("cmbAltProgram").Click
For a = baslangic To altprogramsay
meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById("cmbModulAdi").Text, vbLf)))
For b = 2 To ModulAdisay
meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Click
BolumAdisay = CLng(UBound(Split(meb.FindElementById("cmbBolumAdi").Text, vbLf)))
For c = 2 To BolumAdisay
meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Text & "/" & meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Text
Next c
Next b
Next a
sutun = 5
altprogramsay = CLng(UBound(Split(meb.FindElementById("cmbAltProgram").Text, vbLf)))
If altprogramsay > 1 Then baslangic = 2 Else baslangic = 1
meb.FindElementById("cmbAltProgram").Click
For a = baslangic To altprogramsay
meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById("cmbModulAdi").Text, vbLf)))
For b = 2 To ModulAdisay
meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Click
BolumAdisay = CLng(UBound(Split(meb.FindElementById("cmbBolumAdi").Text, vbLf)))
For c = 2 To BolumAdisay
meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Text & "/" & meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Text
Next c
Next b
Next a
vba kodunu Pyhthon koduna nasıl cevirebilirim.