Skip to main content

AccessTr.neT


webden bilgi alma

webden bilgi alma

Çözüldü #49
aşağıdaki kodda "method or data member not found" diye bir hata veriyor.
sebebi nedir?

Kod:
Private Sub Komut579_Click()
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1

Me.Metin1 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(0).innerText
Me.Metin2 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(1).innerText
Me.Metin3 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(3).innerText
Me.Metin4 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(6).innerText
Me.Metin5 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(7).innerText
Me.Metin6 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(8).innerText
Me.Metin7 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(9).innerText
Me.Metin8 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(10).innerText
Me.Metin9 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(11).innerText
Me.Metin10 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(12).innerText
Me.Metin11 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(13).innerText
Me.Metin12 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(14).innerText
Me.Metin13 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(15).innerText
Me.Metin14 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(16).innerText
Me.Metin15 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(17).innerText
Me.Metin16 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(18).innerText
Me.Metin17 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(19).innerText
Me.Metin18 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(20).innerText
Me.Metin19 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(0).innerText
Me.Metin20 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(1).innerText
Me.Metin21 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(3).innerText
Me.Metin22 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(6).innerText
Me.Metin23 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(7).innerText
Me.Metin24 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(8).innerText
Me.Metin25 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(9).innerText
Me.Metin26 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(10).innerText
Me.Metin27 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(11).innerText
Me.Metin28 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(12).innerText
Me.Metin29 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(13).innerText
Me.Metin30 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(14).innerText
Me.Metin31 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(15).innerText
Me.Metin32 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(16).innerText
Me.Metin33 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(17).innerText
Me.Metin34 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(18).innerText
Me.Metin35 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(19).innerText
Me.Metin36 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(20).innerText
Me.Metin37 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(0).innerText
Me.Metin38 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(1).innerText
Me.Metin39 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(3).innerText
Me.Metin40 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(6).innerText
Me.Metin41 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(7).innerText
Me.Metin42 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(8).innerText
Me.Metin43 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(9).innerText
Me.Metin44 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(10).innerText
Me.Metin45 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(11).innerText
Me.Metin46 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(12).innerText
Me.Metin47 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(13).innerText
Me.Metin48 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(14).innerText
Me.Metin49 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(15).innerText
Me.Metin50 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(16).innerText
Me.Metin51 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(17).innerText
Me.Metin52 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(18).innerText
Me.Metin53 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(19).innerText
Me.Metin54 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(20).innerText
Me.Metin55 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(0).innerText
Me.Metin56 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(1).innerText
Me.Metin57 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(3).innerText
Me.Metin58 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(6).innerText
Me.Metin59 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(7).innerText
Me.Metin60 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(8).innerText
Me.Metin61 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(9).innerText
Me.Metin62 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(10).innerText
Me.Metin63 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(11).innerText
Me.Metin64 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(12).innerText
Me.Metin65 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(13).innerText
Me.Metin66 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(14).innerText
Me.Metin67 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(15).innerText
Me.Metin68 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(16).innerText
Me.Metin69 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(17).innerText
Me.Metin70 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(18).innerText
Me.Metin71 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(19).innerText
Me.Metin72 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(20).innerText
Me.Metin73 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(0).innerText
Me.Metin74 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(1).innerText
Me.Metin75 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(3).innerText
Me.Metin76 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(6).innerText
Me.Metin77 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(7).innerText
Me.Metin78 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(8).innerText
Me.Metin79 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(9).innerText
Me.Metin80 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(10).innerText
Me.Metin81 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(11).innerText
Me.Metin82 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(12).innerText
Me.Metin83 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(13).innerText
Me.Metin84 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(14).innerText
Me.Metin85 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(15).innerText
Me.Metin86 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(16).innerText
Me.Metin87 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(17).innerText
Me.Metin88 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(18).innerText
Me.Metin89 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(19).innerText
Me.Metin90 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(20).innerText
Me.Metin91 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(0).innerText
Me.Metin92 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(1).innerText
Me.Metin93 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(3).innerText
Me.Metin94 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(6).innerText
Me.Metin95 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(7).innerText
Me.Metin96 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(8).innerText
Me.Metin97 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(9).innerText
Me.Metin98 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(10).innerText
Me.Metin99 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(11).innerText
Me.Metin100 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(12).innerText
Me.Metin101 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(13).innerText
Me.Metin102 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(14).innerText
Me.Metin103 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(15).innerText
Me.Metin104 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(16).innerText
Me.Metin105 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(17).innerText
Me.Metin106 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(18).innerText
Me.Metin107 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(19).innerText
Me.Metin108 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(20).innerText
Me.Metin109 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(0).innerText
Me.Metin110 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(1).innerText
Me.Metin111 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(3).innerText
Me.Metin112 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(6).innerText
Me.Metin113 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(7).innerText
Me.Metin114 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(8).innerText
Me.Metin115 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(9).innerText
Me.Metin116 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(10).innerText
Me.Metin117 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(11).innerText
Me.Metin118 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(12).innerText
Me.Metin119 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(13).innerText
Me.Metin120 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(14).innerText
Me.Metin121 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(15).innerText
Me.Metin122 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(16).innerText
Me.Metin123 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(17).innerText
Me.Metin124 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(18).innerText
Me.Metin125 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(19).innerText
Me.Metin126 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(20).innerText
Me.Metin127 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(0).innerText
Me.Metin128 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(1).innerText
Me.Metin129 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(3).innerText
Me.Metin130 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(6).innerText
Me.Metin131 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(7).innerText
Me.Metin132 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(8).innerText
Me.Metin133 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(9).innerText
Me.Metin134 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(10).innerText
Me.Metin135 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(11).innerText
Me.Metin136 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(12).innerText
Me.Metin137 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(13).innerText
Me.Metin138 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(14).innerText
Me.Metin139 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(15).innerText
Me.Metin140 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(16).innerText
Me.Metin141 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(17).innerText
Me.Metin142 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(18).innerText
Me.Metin143 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(19).innerText
Me.Metin144 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(20).innerText
Me.Metin145 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(0).innerText
Me.Metin146 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(1).innerText
Me.Metin147 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(3).innerText
Me.Metin148 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(6).innerText
Me.Metin149 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(7).innerText
Me.Metin150 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(8).innerText
Me.Metin151 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(9).innerText
Me.Metin152 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(10).innerText
Me.Metin153 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(11).innerText
Me.Metin154 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(12).innerText
Me.Metin155 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(13).innerText
Me.Metin156 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(14).innerText
Me.Metin157 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(15).innerText
Me.Metin158 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(16).innerText
Me.Metin159 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(17).innerText
Me.Metin160 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(18).innerText
Me.Metin161 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(19).innerText
Me.Metin162 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(20).innerText
Me.Metin163 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(0).innerText
Me.Metin164 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(1).innerText
Me.Metin165 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(3).innerText
Me.Metin166 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(6).innerText
Me.Metin167 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(7).innerText
Me.Metin168 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(8).innerText
Me.Metin169 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(9).innerText
Me.Metin170 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(10).innerText
Me.Metin171 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(11).innerText
Me.Metin172 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(12).innerText
Me.Metin173 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(13).innerText
Me.Metin174 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(14).innerText
Me.Metin175 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(15).innerText
Me.Metin176 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(16).innerText
Me.Metin177 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(17).innerText
Me.Metin178 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(18).innerText
Me.Metin179 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(19).innerText
Me.Metin180 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(20).innerText
Me.Metin181 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(0).innerText
Me.Metin182 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(1).innerText
Me.Metin183 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(3).innerText
Me.Metin184 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(6).innerText
Me.Metin185 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(7).innerText
Me.Metin186 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(8).innerText
Me.Metin187 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(9).innerText
Me.Metin188 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(10).innerText
Me.Metin189 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(11).innerText
Me.Metin190 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(12).innerText
Me.Metin191 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(13).innerText
Me.Metin192 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(14).innerText
Me.Metin193 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(15).innerText
Me.Metin194 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(16).innerText
Me.Metin195 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(17).innerText
Me.Metin196 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(18).innerText
Me.Metin197 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(19).innerText
Me.Metin198 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(20).innerText
Me.Metin199 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(0).innerText
Me.Metin200 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(1).innerText
Me.Metin201 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(3).innerText
Me.Metin202 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(6).innerText
Me.Metin203 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(7).innerText
Me.Metin204 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(8).innerText
Me.Metin205 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(9).innerText
Me.Metin206 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(10).innerText
Me.Metin207 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(11).innerText
Me.Metin208 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(12).innerText
Me.Metin209 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(13).innerText
Me.Metin210 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(14).innerText
Me.Metin211 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(15).innerText
Me.Metin212 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(16).innerText
Me.Metin213 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(17).innerText
Me.Metin214 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(18).innerText
Me.Metin215 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(19).innerText
Me.Metin216 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(20).innerText
Me.Metin217 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(0).innerText
Me.Metin218 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(1).innerText
Me.Metin219 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(3).innerText
Me.Metin220 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(6).innerText
Me.Metin221 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(7).innerText
Me.Metin222 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(8).innerText
Me.Metin223 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(9).innerText
Me.Metin224 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(10).innerText
Me.Metin225 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(11).innerText
Me.Metin226 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(12).innerText
Me.Metin227 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(13).innerText
Me.Metin228 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(14).innerText
Me.Metin229 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(15).innerText
Me.Metin230 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(16).innerText
Me.Metin231 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(17).innerText
Me.Metin232 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(18).innerText
Me.Metin233 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(19).innerText
Me.Metin234 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(20).innerText
Me.Metin235 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(0).innerText
Me.Metin236 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(1).innerText
Me.Metin237 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(3).innerText
Me.Metin238 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(6).innerText
Me.Metin239 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(7).innerText
Me.Metin240 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(8).innerText
Me.Metin241 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(9).innerText
Me.Metin242 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(10).innerText
Me.Metin243 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(11).innerText
Me.Metin244 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(12).innerText
Me.Metin245 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(13).innerText
Me.Metin246 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(14).innerText
Me.Metin247 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(15).innerText
Me.Metin248 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(16).innerText
Me.Metin249 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(17).innerText
Me.Metin250 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(18).innerText
Me.Metin251 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(19).innerText
Me.Metin252 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(20).innerText
Me.Metin253 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(0).innerText
Me.Metin254 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(1).innerText
Me.Metin255 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(3).innerText
Me.Metin256 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(6).innerText
Me.Metin257 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(7).innerText
Me.Metin258 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(8).innerText
Me.Metin259 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(9).innerText
Me.Metin260 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(10).innerText
Me.Metin261 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(11).innerText
Me.Metin262 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(12).innerText
Me.Metin263 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(13).innerText
Me.Metin264 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(14).innerText
Me.Metin265 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(15).innerText
Me.Metin266 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(16).innerText
Me.Metin267 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(17).innerText
Me.Metin268 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(18).innerText
Me.Metin269 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(19).innerText
Me.Metin270 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(20).innerText
Me.Metin271 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(0).innerText
Me.Metin272 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(1).innerText
Me.Metin273 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(3).innerText
Me.Metin274 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(6).innerText
Me.Metin275 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(7).innerText
Me.Metin276 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(8).innerText
Me.Metin277 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(9).innerText
Me.Metin278 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(10).innerText
Me.Metin279 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(11).innerText
Me.Metin280 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(12).innerText
Me.Metin281 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(13).innerText
Me.Metin282 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(14).innerText
Me.Metin283 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(15).innerText
Me.Metin284 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(16).innerText
Me.Metin285 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(17).innerText
Me.Metin286 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(18).innerText
Me.Metin287 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(19).innerText
Me.Metin288 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(20).innerText
Me.Metin289 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(0).innerText
Me.Metin290 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(1).innerText
Me.Metin291 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(3).innerText
Me.Metin292 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(6).innerText
Me.Metin293 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(7).innerText
Me.Metin294 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(8).innerText
Me.Metin295 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(9).innerText
Me.Metin296 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(10).innerText
Me.Metin297 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(11).innerText
Me.Metin298 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(12).innerText
Me.Metin299 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(13).innerText
Me.Metin300 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(14).innerText
Me.Metin301 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(15).innerText
Me.Metin302 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(16).innerText
Me.Metin303 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(17).innerText
Me.Metin304 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(18).innerText
Me.Metin305 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(19).innerText
Me.Metin306 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(20).innerText
Me.Metin307 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(0).innerText
Me.Metin308 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(1).innerText
Me.Metin309 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(3).innerText
Me.Metin310 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(6).innerText
Me.Metin311 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(7).innerText
Me.Metin312 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(8).innerText
Me.Metin313 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(9).innerText
Me.Metin314 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(10).innerText
Me.Metin315 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(11).innerText
Me.Metin316 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(12).innerText
Me.Metin317 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(13).innerText
Me.Metin318 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(14).innerText
Me.Metin319 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(15).innerText
Me.Metin320 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(16).innerText
Me.Metin321 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(17).innerText
Me.Metin322 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(18).innerText
Me.Metin323 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(19).innerText
Me.Metin324 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(20).innerText
Me.Metin325 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(0).innerText
Me.Metin326 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(1).innerText
Me.Metin327 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(3).innerText
Me.Metin328 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(6).innerText
Me.Metin329 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(7).innerText
Me.Metin330 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(8).innerText
Me.Metin331 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(9).innerText
Me.Metin332 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(10).innerText
Me.Metin333 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(11).innerText
Me.Metin334 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(12).innerText
Me.Metin335 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(13).innerText
Me.Metin336 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(14).innerText
Me.Metin337 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(15).innerText
Me.Metin338 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(16).innerText
Me.Metin339 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(17).innerText
Me.Metin340 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(18).innerText
Me.Metin341 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(19).innerText
Me.Metin342 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(20).innerText
Me.Metin343 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(0).innerText
Me.Metin344 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(1).innerText
Me.Metin345 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(3).innerText
Me.Metin346 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(6).innerText
Me.Metin347 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(7).innerText
Me.Metin348 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(8).innerText
Me.Metin349 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(9).innerText
Me.Metin350 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(10).innerText
Me.Metin351 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(11).innerText
Me.Metin352 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(12).innerText
Me.Metin353 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(13).innerText
Me.Metin354 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(14).innerText
Me.Metin355 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(15).innerText
Me.Metin356 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(16).innerText
Me.Metin357 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(17).innerText
Me.Metin358 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(18).innerText
Me.Metin359 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(19).innerText
Me.Metin360 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(20).innerText
Me.Metin361 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(0).innerText
Me.Metin362 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(1).innerText
Me.Metin363 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(3).innerText
Me.Metin364 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(6).innerText
Me.Metin365 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(7).innerText
Me.Metin366 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(8).innerText
Me.Metin367 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(9).innerText
Me.Metin368 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(10).innerText
Me.Metin369 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(11).innerText
Me.Metin370 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(12).innerText
Me.Metin371 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(13).innerText
Me.Metin372 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(14).innerText
Me.Metin373 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(15).innerText
Me.Metin374 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(16).innerText
Me.Metin375 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(17).innerText
Me.Metin376 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(18).innerText
Me.Metin377 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(19).innerText
Me.Metin378 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(20).innerText
Me.Metin379 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(0).innerText
Me.Metin380 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(1).innerText
Me.Metin381 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(3).innerText
Me.Metin382 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(6).innerText
Me.Metin383 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(7).innerText
Me.Metin384 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(8).innerText
Me.Metin385 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(9).innerText
Me.Metin386 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(10).innerText
Me.Metin387 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(11).innerText
Me.Metin388 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(12).innerText
Me.Metin389 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(13).innerText
Me.Metin390 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(14).innerText
Me.Metin391 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(15).innerText
Me.Metin392 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(16).innerText
Me.Metin393 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(17).innerText
Me.Metin394 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(18).innerText
Me.Metin395 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(19).innerText
Me.Metin396 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(20).innerText
Me.Metin397 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(0).innerText
Me.Metin398 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(1).innerText
Me.Metin399 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(3).innerText
Me.Metin400 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(6).innerText
Me.Metin401 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(7).innerText
Me.Metin402 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(8).innerText
Me.Metin403 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(9).innerText
Me.Metin404 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(10).innerText
Me.Metin405 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(11).innerText
Me.Metin406 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(12).innerText
Me.Metin407 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(13).innerText
Me.Metin408 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(14).innerText
Me.Metin409 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(15).innerText
Me.Metin410 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(16).innerText
Me.Metin411 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(17).innerText
Me.Metin412 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(18).innerText
Me.Metin413 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(19).innerText
Me.Metin414 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(20).innerText
Me.Metin415 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(0).innerText
Me.Metin416 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(1).innerText
Me.Metin417 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(3).innerText
Me.Metin418 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(6).innerText
Me.Metin419 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(7).innerText
Me.Metin420 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(8).innerText
Me.Metin421 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(9).innerText
Me.Metin422 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(10).innerText
Me.Metin423 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(11).innerText
Me.Metin424 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(12).innerText
Me.Metin425 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(13).innerText
Me.Metin426 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(14).innerText
Me.Metin427 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(15).innerText
Me.Metin428 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(16).innerText
Me.Metin429 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(17).innerText
Me.Metin430 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(18).innerText
Me.Metin431 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(19).innerText
Me.Metin432 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(20).innerText
Me.Metin433 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(0).innerText
Me.Metin434 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(1).innerText
Me.Metin435 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(3).innerText
Me.Metin436 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(6).innerText
Me.Metin437 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(7).innerText
Me.Metin438 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(8).innerText
Me.Metin439 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(9).innerText
Me.Metin440 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(10).innerText
Me.Metin441 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(11).innerText
Me.Metin442 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(12).innerText
Me.Metin443 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(13).innerText
Me.Metin444 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(14).innerText
Me.Metin445 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(15).innerText
Me.Metin446 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(16).innerText
Me.Metin447 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(17).innerText
Me.Metin448 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(18).innerText
Me.Metin449 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(19).innerText
Me.Metin450 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(20).innerText




Dim strSQL As String
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim o As Integer
Dim p As Integer
Dim r As Integer
Dim s As Integer
For a = 1 To 433


a = 1
b = 2
c = 3
d = 4
e = 5
f = 6
g = 7
h = 8
i = 9
j = 10
k = 11
l = 12
m = 13
n = 14
o = 15
p = 16
r = 17
s = 18

strSQL = "SELECT * FROM T_VERITABLOSU "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[ISEMRINO]='" & Me.veri(a) & "'"
If Not rstkayit.EOF Then
If MsgBox("" & veri(a) & " . AY VERİSİ DAHA ÖNCEDEN KAYIT EDİLMİŞ.Veri Güncellensin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then

            .Fields("ISEMRINO") = Me.veri(a)
            .Fields("SEFLIKKODU") = Me.veri(b)
            .Fields("ILCEKODU") = Me.veri(c)
            .Fields("MAHALLE") = Me.veri(d)
            .Fields("SOKAK") = Me.veri(e)
            .Fields("BINANO") = Me.veri(f)
            .Fields("CAGRITURU") = Me.veri(g)
            .Fields("CEVAP") = Me.veri(h)
            .Fields("KAYITTARIHI") = Me.veri(i)
            .Fields("FAALIYETTARIHI") = Me.veri(j)
            .Fields("FAALIYETKODU") = Me.veri(k)
            .Fields("SIKAYETSAHIBI") = Me.veri(l)
            .Fields("EVTEL") = Me.veri(m)
            .Fields("CEPTEL") = Me.veri(n)
            .Fields("ISTEL") = Me.veri(o)
            .Fields("EPOSTA") = Me.veri(p)
            .Fields("FAXNO") = Me.veri(r)
            .Fields("GERIBILDIRIM") = Me.veri(s)




.Update
Else
Exit Sub
End If
Else
.AddNew
            .Fields("ISEMRINO") = Me.veri(a)
            .Fields("SEFLIKKODU") = Me.veri(b)
            .Fields("ILCEKODU") = Me.veri(c)
            .Fields("MAHALLE") = Me.veri(d)
            .Fields("SOKAK") = Me.veri(e)
            .Fields("BINANO") = Me.veri(f)
            .Fields("CAGRITURU") = Me.veri(g)
            .Fields("CEVAP") = Me.veri(h)
            .Fields("KAYITTARIHI") = Me.veri(i)
            .Fields("FAALIYETTARIHI") = Me.veri(j)
            .Fields("FAALIYETKODU") = Me.veri(k)
            .Fields("SIKAYETSAHIBI") = Me.veri(l)
            .Fields("EVTEL") = Me.veri(m)
            .Fields("CEPTEL") = Me.veri(n)
            .Fields("ISTEL") = Me.veri(o)
            .Fields("EPOSTA") = Me.veri(p)
            .Fields("FAXNO") = Me.veri(r)
            .Fields("GERIBILDIRIM") = Me.veri(s)


.Update
End If
End With
a = a + 18
b = b + 18
c = c + 18
d = d + 18
e = e + 18
f = f + 18
g = g + 18
h = h + 18
i = i + 18
j = j + 18
k = k + 18
l = l + 18
m = m + 18
n = n + 18
o = o + 18
p = p + 18
r = r + 18
s = s + 18

Next



End Sub

Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #50
Msgboxtaki debug butonuna tıkladığında hatalı satır sarı renkte gösterir, bunun anlamı bu satırdaki eşitlemeden veri alınamıyor. Koda yazdığın item, rows veya cells değeri hatalı.
Cevapla
Çözüldü #51
hatayı yukarıdaki kodda bulunan 509. satırdan itibaren veriyor. item,rows ve cells de problem yok. sanırım

.Fields("ISEMRINO") = Me.veri(a)

kısmındaki veri (a) yı nasıl yazacağımı bilmiyorum veria yazdım olmadı veri a olmadı veri (a) olmadı. nasıl yazmalıyım?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #52
hatam nerede? kayıt tabloda olmadığı halde "kayıt var" uyarısı veriyor ve ne hikmetse kayıt yapmıyor.[/vb]


Private Sub Komut579_Click()
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1
Dim k As Integer
Dim Deger1, Deger2, Deger3, Deger4, Deger5, Deger6, Deger7, Deger8, Deger9, Deger10, Deger11, Deger12, Deger13, Deger14, Deger15, Deger16, Deger17, Deger18


For k = 1 To 100


Deger1 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(0).innerText
Deger2 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(1).innerText
Deger3 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(3).innerText
Deger4 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(6).innerText
Deger5 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(7).innerText
Deger6 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(8).innerText
Deger7 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(9).innerText
Deger8 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(10).innerText
Deger9 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(11).innerText
Deger10 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(12).innerText
Deger11 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(13).innerText
Deger12 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(14).innerText
Deger13 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(15).innerText
Deger14 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(16).innerText
Deger15 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(17).innerText
Deger16 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(18).innerText
Deger17 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(19).innerText
Deger18 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(20).innerText



Dim strSQL As String
strSQL = "SELECT * T_VERITABLOSU"
Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[ISEMRINO]='" & Deger1 & "'"
If Not rstkayit.EOF Then
If MsgBox("" & Deger1 & " isimli," & Deger1 & "telefon numaralı tesisatçı daha önceden kaydedilmiş, Veri Güncellensin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then
.Fields("ISEMRINO") = Deger1
.Fields("SEFLIKKODU") = Deger2
.Fields("ILCEKODU") = Deger3
.Fields("MAHALLE") = Deger4
.Fields("SOKAK") = Deger5
.Fields("BINANO") = Deger6
.Fields("CAGRITURU") = Deger7
.Fields("CEVAP") = Deger8
.Fields("KAYITTARIHI") = Deger9
.Fields("FAALIYETTARIHI") = Deger10
.Fields("FAALIYETKODU") = Deger11
.Fields("SIKAYETSAHIBI") = Deger12
.Fields("EVTEL") = Deger13
.Fields("CEPTEL") = Deger14
.Fields("ISTEL") = Deger15
.Fields("EPOSTA") = Deger16
.Fields("FAXNO") = Deger17
.Fields("GERIBILDIRIM") = Deger18
.Update
Else
Exit Sub
End If
Else
.AddNew
.Fields("ISEMRINO") = Deger1
.Fields("SEFLIKKODU") = Deger2
.Fields("ILCEKODU") = Deger3
.Fields("MAHALLE") = Deger4
.Fields("SOKAK") = Deger5
.Fields("BINANO") = Deger6
.Fields("CAGRITURU") = Deger7
.Fields("CEVAP") = Deger8
.Fields("KAYITTARIHI") = Deger9
.Fields("FAALIYETTARIHI") = Deger10
.Fields("FAALIYETKODU") = Deger11
.Fields("SIKAYETSAHIBI") = Deger12
.Fields("EVTEL") = Deger13
.Fields("CEPTEL") = Deger14
.Fields("ISTEL") = Deger15
.Fields("EPOSTA") = Deger16
.Fields("FAXNO") = Deger17
.Fields("GERIBILDIRIM") = Deger18
.Update
End If
End With






Next

rstkayit.Close


End Sub
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #53
sn kadirdursun, örneğinizin son halini ve webbrowserda veri aldığınız tüm sayfanın kaynak kodunu gönderiniz.
Cevapla
Çözüldü #54
sayın sledgeab, çok uğraştırıdım farkındayım, özür dilerim.
istedikleriniz ektedir.
.rar Örnek2.rar (Dosya Boyutu: 163,38 KB | İndirme Sayısı: 25)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task