AccessTr.neT

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11

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

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ı.

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?

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

sn kadirdursun, örneğinizin son halini ve webbrowserda veri aldığınız tüm sayfanın kaynak kodunu gönderiniz.

sayın sledgeab, çok uğraştırıdım farkındayım, özür dilerim.
istedikleriniz ektedir.

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11

kadirdursun

ozanakkaya

kadirdursun

kadirdursun

ozanakkaya

kadirdursun