• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Procedure too large hatası!!!

A

AyYıldızım

Katılım
15 Nisan 2008
Mesajlar
303
Excel Vers. ve Dili
2010
Kod: 
Dim sat As Long, sh As Worksheet, i As Long
ListView1.ListItems.Clear
Set sh = Sheets("Form")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 9 To sat

ListView1.ListItems.Add , , sh.Cells(i, "A").Value
    ListView1.ListItems(i - 8).SubItems(1) = sh.Cells(i, "B").Value
    ListView1.ListItems(i - 8).SubItems(2) = sh.Cells(i, "C").Value
    ListView1.ListItems(i - 8).SubItems(3) = sh.Cells(i, "D").Value
    ListView1.ListItems(i - 8).SubItems(4) = sh.Cells(i, "E").Value
    ListView1.ListItems(i - 8).SubItems(5) = sh.Cells(i, "F").Value
    ListView1.ListItems(i - 8).SubItems(6) = sh.Cells(i, "G").Value
    ListView1.ListItems(i - 8).SubItems(7) = sh.Cells(i, "H").Value
    ListView1.ListItems(i - 8).SubItems(8) = sh.Cells(i, "I").Value
    ListView1.ListItems(i - 8).SubItems(9) = sh.Cells(i, "J").Value
    ListView1.ListItems(i - 8).SubItems(10) = sh.Cells(i, "K").Value
    ListView1.ListItems(i - 8).SubItems(11) = sh.Cells(i, "L").Value
    ListView1.ListItems(i - 8).SubItems(12) = sh.Cells(i, "M").Value
    ListView1.ListItems(i - 8).SubItems(13) = sh.Cells(i, "N").Value
    ListView1.ListItems(i - 8).SubItems(14) = sh.Cells(i, "O").Value
    ListView1.ListItems(i - 8).SubItems(15) = sh.Cells(i, "P").Value
    ListView1.ListItems(i - 8).SubItems(16) = sh.Cells(i, "Q").Value
    ListView1.ListItems(i - 8).SubItems(17) = sh.Cells(i, "R").Value
    ListView1.ListItems(i - 8).SubItems(18) = sh.Cells(i, "S").Value
    ListView1.ListItems(i - 8).SubItems(19) = sh.Cells(i, "T").Value
    ListView1.ListItems(i - 8).SubItems(20) = sh.Cells(i, "U").Value
    ListView1.ListItems(i - 8).SubItems(21) = sh.Cells(i, "V").Value
    ListView1.ListItems(i - 8).SubItems(22) = sh.Cells(i, "W").Value
    ListView1.ListItems(i - 8).SubItems(23) = sh.Cells(i, "X").Value
    ListView1.ListItems(i - 8).SubItems(24) = sh.Cells(i, "Y").Value
    ListView1.ListItems(i - 8).SubItems(25) = sh.Cells(i, "Z").Value
    ListView1.ListItems(i - 8).SubItems(26) = sh.Cells(i, "AA").Value
    ListView1.ListItems(i - 8).SubItems(27) = sh.Cells(i, "AB").Value
    ListView1.ListItems(i - 8).SubItems(28) = sh.Cells(i, "AC").Value
    ListView1.ListItems(i - 8).SubItems(29) = sh.Cells(i, "AD").Value
    ListView1.ListItems(i - 8).SubItems(30) = sh.Cells(i, "AE").Value
    ListView1.ListItems(i - 8).SubItems(31) = sh.Cells(i, "AF").Value
    ListView1.ListItems(i - 8).SubItems(32) = sh.Cells(i, "AG").Value
    ListView1.ListItems(i - 8).SubItems(33) = sh.Cells(i, "AH").Value
    ListView1.ListItems(i - 8).SubItems(34) = sh.Cells(i, "AI").Value
    ListView1.ListItems(i - 8).SubItems(35) = sh.Cells(i, "AJ").Value
    ListView1.ListItems(i - 8).SubItems(36) = sh.Cells(i, "AK").Value
    ListView1.ListItems(i - 8).SubItems(37) = sh.Cells(i, "AL").Value
    ListView1.ListItems(i - 8).SubItems(38) = sh.Cells(i, "AM").Value
    ListView1.ListItems(i - 8).SubItems(39) = sh.Cells(i, "AN").Value
    ListView1.ListItems(i - 8).SubItems(40) = sh.Cells(i, "AO").Value
    ListView1.ListItems(i - 8).SubItems(41) = sh.Cells(i, "AP").Value
    ListView1.ListItems(i - 8).SubItems(42) = sh.Cells(i, "AQ").Value
    ListView1.ListItems(i - 8).SubItems(43) = sh.Cells(i, "AR").Value
    ListView1.ListItems(i - 8).SubItems(44) = sh.Cells(i, "AS").Value
    ListView1.ListItems(i - 8).SubItems(45) = sh.Cells(i, "AT").Value
    ListView1.ListItems(i - 8).SubItems(46) = sh.Cells(i, "AU").Value
    ListView1.ListItems(i - 8).SubItems(47) = sh.Cells(i, "AV").Value
    ListView1.ListItems(i - 8).SubItems(48) = sh.Cells(i, "AW").Value
    ListView1.ListItems(i - 8).SubItems(49) = sh.Cells(i, "AX").Value
    ListView1.ListItems(i - 8).SubItems(50) = sh.Cells(i, "AY").Value
    ListView1.ListItems(i - 8).SubItems(51) = sh.Cells(i, "AZ").Value
    ListView1.ListItems(i - 8).SubItems(52) = sh.Cells(i, "BA").Value
    ListView1.ListItems(i - 8).SubItems(53) = sh.Cells(i, "BB").Value
    ListView1.ListItems(i - 8).SubItems(54) = sh.Cells(i, "BC").Value
    ListView1.ListItems(i - 8).SubItems(55) = sh.Cells(i, "BD").Value
    ListView1.ListItems(i - 8).SubItems(56) = sh.Cells(i, "BE").Value
    ListView1.ListItems(i - 8).SubItems(57) = sh.Cells(i, "BF").Value
    ListView1.ListItems(i - 8).SubItems(58) = sh.Cells(i, "BG").Value
    ListView1.ListItems(i - 8).SubItems(59) = sh.Cells(i, "BH").Value
    ListView1.ListItems(i - 8).SubItems(60) = sh.Cells(i, "BI").Value
    ListView1.ListItems(i - 8).SubItems(61) = sh.Cells(i, "BJ").Value
    ListView1.ListItems(i - 8).SubItems(62) = sh.Cells(i, "BK").Value
    ListView1.ListItems(i - 8).SubItems(63) = sh.Cells(i, "BL").Value
    ListView1.ListItems(i - 8).SubItems(64) = sh.Cells(i, "BM").Value
    ListView1.ListItems(i - 8).SubItems(65) = sh.Cells(i, "BN").Value
    ListView1.ListItems(i - 8).SubItems(66) = sh.Cells(i, "BO").Value
    ListView1.ListItems(i - 8).SubItems(67) = sh.Cells(i, "BP").Value
    ListView1.ListItems(i - 8).SubItems(68) = sh.Cells(i, "BQ").Value
    ListView1.ListItems(i - 8).SubItems(69) = sh.Cells(i, "BR").Value
    ListView1.ListItems(i - 8).SubItems(70) = sh.Cells(i, "BS").Value
    ListView1.ListItems(i - 8).SubItems(71) = sh.Cells(i, "BT").Value
    
    ListView1.ListItems(i - 8).SubItems(72) = sh.Cells(i, "BU").Value
    ListView1.ListItems(i - 8).SubItems(73) = sh.Cells(i, "BV").Value
    ListView1.ListItems(i - 8).SubItems(74) = sh.Cells(i, "BW").Value
    ListView1.ListItems(i - 8).SubItems(75) = sh.Cells(i, "BX").Value
    ListView1.ListItems(i - 8).SubItems(76) = sh.Cells(i, "BY").Value
    ListView1.ListItems(i - 8).SubItems(77) = sh.Cells(i, "BZ").Value
    ListView1.ListItems(i - 8).SubItems(78) = sh.Cells(i, "CA").Value
    ListView1.ListItems(i - 8).SubItems(79) = sh.Cells(i, "CB").Value
    ListView1.ListItems(i - 8).SubItems(80) = sh.Cells(i, "CC").Value
    ListView1.ListItems(i - 8).SubItems(81) = sh.Cells(i, "CD").Value
    ListView1.ListItems(i - 8).SubItems(82) = sh.Cells(i, "CE").Value
    ListView1.ListItems(i - 8).SubItems(83) = sh.Cells(i, "CF").Value
    ListView1.ListItems(i - 8).SubItems(84) = sh.Cells(i, "CG").Value
    ListView1.ListItems(i - 8).SubItems(85) = sh.Cells(i, "CH").Value
    ListView1.ListItems(i - 8).SubItems(86) = sh.Cells(i, "CI").Value
    ListView1.ListItems(i - 8).SubItems(87) = sh.Cells(i, "CJ").Value
    ListView1.ListItems(i - 8).SubItems(88) = sh.Cells(i, "CK").Value
    ListView1.ListItems(i - 8).SubItems(89) = sh.Cells(i, "CL").Value
    ListView1.ListItems(i - 8).SubItems(90) = sh.Cells(i, "CM").Value
    ListView1.ListItems(i - 8).SubItems(91) = sh.Cells(i, "CN").Value
    ListView1.ListItems(i - 8).SubItems(92) = sh.Cells(i, "CO").Value
    ListView1.ListItems(i - 8).SubItems(93) = sh.Cells(i, "CP").Value
    ListView1.ListItems(i - 8).SubItems(94) = sh.Cells(i, "CQ").Value
    ListView1.ListItems(i - 8).SubItems(95) = sh.Cells(i, "CR").Value
    ListView1.ListItems(i - 8).SubItems(96) = sh.Cells(i, "CS").Value
    ListView1.ListItems(i - 8).SubItems(97) = sh.Cells(i, "CT").Value
    ListView1.ListItems(i - 8).SubItems(98) = sh.Cells(i, "CU").Value
    ListView1.ListItems(i - 8).SubItems(99) = sh.Cells(i, "CV").Value
    ListView1.ListItems(i - 8).SubItems(100) = sh.Cells(i, "CW").Value
    ListView1.ListItems(i - 8).SubItems(101) = sh.Cells(i, "CX").Value
    ListView1.ListItems(i - 8).SubItems(102) = sh.Cells(i, "CY").Value
    ListView1.ListItems(i - 8).SubItems(103) = sh.Cells(i, "CZ").Value
    ListView1.ListItems(i - 8).SubItems(104) = sh.Cells(i, "DA").Value
    ListView1.ListItems(i - 8).SubItems(105) = sh.Cells(i, "DB").Value
    ListView1.ListItems(i - 8).SubItems(106) = sh.Cells(i, "DC").Value
    ListView1.ListItems(i - 8).SubItems(107) = sh.Cells(i, "DD").Value
    ListView1.ListItems(i - 8).SubItems(108) = sh.Cells(i, "DE").Value
    ListView1.ListItems(i - 8).SubItems(109) = sh.Cells(i, "DF").Value
    ListView1.ListItems(i - 8).SubItems(110) = sh.Cells(i, "DG").Value
    ListView1.ListItems(i - 8).SubItems(111) = sh.Cells(i, "DH").Value
    ListView1.ListItems(i - 8).SubItems(112) = sh.Cells(i, "DI").Value
    ListView1.ListItems(i - 8).SubItems(113) = sh.Cells(i, "DJ").Value
    ListView1.ListItems(i - 8).SubItems(114) = sh.Cells(i, "DK").Value
    ListView1.ListItems(i - 8).SubItems(115) = sh.Cells(i, "DL").Value
    ListView1.ListItems(i - 8).SubItems(116) = sh.Cells(i, "DM").Value
    ListView1.ListItems(i - 8).SubItems(117) = sh.Cells(i, "DN").Value
    ListView1.ListItems(i - 8).SubItems(118) = sh.Cells(i, "DO").Value
    ListView1.ListItems(i - 8).SubItems(119) = sh.Cells(i, "DP").Value
    ListView1.ListItems(i - 8).SubItems(120) = sh.Cells(i, "DQ").Value
    ListView1.ListItems(i - 8).SubItems(121) = sh.Cells(i, "DR").Value
    ListView1.ListItems(i - 8).SubItems(122) = sh.Cells(i, "DS").Value
    ListView1.ListItems(i - 8).SubItems(123) = sh.Cells(i, "DT").Value
    ListView1.ListItems(i - 8).SubItems(124) = sh.Cells(i, "DU").Value
    ListView1.ListItems(i - 8).SubItems(125) = sh.Cells(i, "DV").Value
    ListView1.ListItems(i - 8).SubItems(126) = sh.Cells(i, "DW").Value
    ListView1.ListItems(i - 8).SubItems(127) = sh.Cells(i, "DX").Value
    ListView1.ListItems(i - 8).SubItems(128) = sh.Cells(i, "DY").Value
    ListView1.ListItems(i - 8).SubItems(129) = sh.Cells(i, "DZ").Value
    ListView1.ListItems(i - 8).SubItems(130) = sh.Cells(i, "EA").Value
    ListView1.ListItems(i - 8).SubItems(131) = sh.Cells(i, "EB").Value
    ListView1.ListItems(i - 8).SubItems(132) = sh.Cells(i, "EC").Value
    ListView1.ListItems(i - 8).SubItems(133) = sh.Cells(i, "ED").Value
    
    ListView1.ListItems(i - 8).SubItems(134) = sh.Cells(i, "EE").Value
    ListView1.ListItems(i - 8).SubItems(135) = sh.Cells(i, "EF").Value
    ListView1.ListItems(i - 8).SubItems(136) = sh.Cells(i, "EG").Value
    ListView1.ListItems(i - 8).SubItems(137) = sh.Cells(i, "EH").Value
    ListView1.ListItems(i - 8).SubItems(138) = sh.Cells(i, "EI").Value
    ListView1.ListItems(i - 8).SubItems(139) = sh.Cells(i, "EJ").Value
    ListView1.ListItems(i - 8).SubItems(140) = sh.Cells(i, "EK").Value
    ListView1.ListItems(i - 8).SubItems(141) = sh.Cells(i, "EL").Value
    ListView1.ListItems(i - 8).SubItems(142) = sh.Cells(i, "EM").Value
    ListView1.ListItems(i - 8).SubItems(143) = sh.Cells(i, "EN").Value
    ListView1.ListItems(i - 8).SubItems(144) = sh.Cells(i, "EO").Value
    ListView1.ListItems(i - 8).SubItems(145) = sh.Cells(i, "EP").Value
    ListView1.ListItems(i - 8).SubItems(146) = sh.Cells(i, "EQ").Value
    ListView1.ListItems(i - 8).SubItems(147) = sh.Cells(i, "ER").Value
    ListView1.ListItems(i - 8).SubItems(148) = sh.Cells(i, "ES").Value
    ListView1.ListItems(i - 8).SubItems(149) = sh.Cells(i, "ET").Value
    ListView1.ListItems(i - 8).SubItems(150) = sh.Cells(i, "EU").Value
    ListView1.ListItems(i - 8).SubItems(151) = sh.Cells(i, "EV").Value
    ListView1.ListItems(i - 8).SubItems(152) = sh.Cells(i, "EW").Value
    ListView1.ListItems(i - 8).SubItems(153) = sh.Cells(i, "EX").Value
    ListView1.ListItems(i - 8).SubItems(154) = sh.Cells(i, "EY").Value
    ListView1.ListItems(i - 8).SubItems(155) = sh.Cells(i, "EZ").Value
    ListView1.ListItems(i - 8).SubItems(156) = sh.Cells(i, "FA").Value
    ListView1.ListItems(i - 8).SubItems(157) = sh.Cells(i, "FB").Value
    ListView1.ListItems(i - 8).SubItems(158) = sh.Cells(i, "FC").Value
    ListView1.ListItems(i - 8).SubItems(159) = sh.Cells(i, "FD").Value
    ListView1.ListItems(i - 8).SubItems(160) = sh.Cells(i, "FE").Value
    ListView1.ListItems(i - 8).SubItems(161) = sh.Cells(i, "FF").Value
    ListView1.ListItems(i - 8).SubItems(162) = sh.Cells(i, "FG").Value
    ListView1.ListItems(i - 8).SubItems(163) = sh.Cells(i, "FH").Value
    ListView1.ListItems(i - 8).SubItems(164) = sh.Cells(i, "FI").Value
    ListView1.ListItems(i - 8).SubItems(165) = sh.Cells(i, "FJ").Value
    ListView1.ListItems(i - 8).SubItems(166) = sh.Cells(i, "FK").Value
    ListView1.ListItems(i - 8).SubItems(167) = sh.Cells(i, "FL").Value
    ListView1.ListItems(i - 8).SubItems(168) = sh.Cells(i, "FM").Value
    ListView1.ListItems(i - 8).SubItems(169) = sh.Cells(i, "FN").Value
    ListView1.ListItems(i - 8).SubItems(170) = sh.Cells(i, "FO").Value
    ListView1.ListItems(i - 8).SubItems(171) = sh.Cells(i, "FP").Value
    ListView1.ListItems(i - 8).SubItems(172) = sh.Cells(i, "FQ").Value
    ListView1.ListItems(i - 8).SubItems(173) = sh.Cells(i, "FR").Value
    ListView1.ListItems(i - 8).SubItems(174) = sh.Cells(i, "FS").Value
    ListView1.ListItems(i - 8).SubItems(175) = sh.Cells(i, "FT").Value
    ListView1.ListItems(i - 8).SubItems(176) = sh.Cells(i, "FU").Value
    ListView1.ListItems(i - 8).SubItems(177) = sh.Cells(i, "FV").Value
    ListView1.ListItems(i - 8).SubItems(178) = sh.Cells(i, "FW").Value
    ListView1.ListItems(i - 8).SubItems(179) = sh.Cells(i, "FX").Value
    ListView1.ListItems(i - 8).SubItems(180) = sh.Cells(i, "FY").Value
    ListView1.ListItems(i - 8).SubItems(181) = sh.Cells(i, "FZ").Value
    ListView1.ListItems(i - 8).SubItems(182) = sh.Cells(i, "GA").Value
    ListView1.ListItems(i - 8).SubItems(183) = sh.Cells(i, "GB").Value
    ListView1.ListItems(i - 8).SubItems(184) = sh.Cells(i, "GC").Value
    ListView1.ListItems(i - 8).SubItems(185) = sh.Cells(i, "GD").Value
    ListView1.ListItems(i - 8).SubItems(186) = sh.Cells(i, "GE").Value
    ListView1.ListItems(i - 8).SubItems(187) = sh.Cells(i, "GF").Value
    ListView1.ListItems(i - 8).SubItems(188) = sh.Cells(i, "GG").Value
    ListView1.ListItems(i - 8).SubItems(189) = sh.Cells(i, "GH").Value
    ListView1.ListItems(i - 8).SubItems(190) = sh.Cells(i, "GI").Value
    ListView1.ListItems(i - 8).SubItems(191) = sh.Cells(i, "GJ").Value
    ListView1.ListItems(i - 8).SubItems(192) = sh.Cells(i, "GK").Value
    ListView1.ListItems(i - 8).SubItems(193) = sh.Cells(i, "GL").Value
    ListView1.ListItems(i - 8).SubItems(194) = sh.Cells(i, "GM").Value
    ListView1.ListItems(i - 8).SubItems(195) = sh.Cells(i, "GN").Value
    ListView1.ListItems(i - 8).SubItems(196) = sh.Cells(i, "GO").Value
    ListView1.ListItems(i - 8).SubItems(197) = sh.Cells(i, "GP").Value
    ListView1.ListItems(i - 8).SubItems(198) = sh.Cells(i, "GQ").Value
    ListView1.ListItems(i - 8).SubItems(199) = sh.Cells(i, "GR").Value
    ListView1.ListItems(i - 8).SubItems(200) = sh.Cells(i, "GS").Value
    ListView1.ListItems(i - 8).SubItems(201) = sh.Cells(i, "GT").Value
    ListView1.ListItems(i - 8).SubItems(202) = sh.Cells(i, "GU").Value
    ListView1.ListItems(i - 8).SubItems(203) = sh.Cells(i, "GV").Value
    ListView1.ListItems(i - 8).SubItems(204) = sh.Cells(i, "GW").Value
    ListView1.ListItems(i - 8).SubItems(205) = sh.Cells(i, "GX").Value
    ListView1.ListItems(i - 8).SubItems(206) = sh.Cells(i, "GY").Value
    ListView1.ListItems(i - 8).SubItems(207) = sh.Cells(i, "GZ").Value
    ListView1.ListItems(i - 8).SubItems(208) = sh.Cells(i, "HA").Value
    ListView1.ListItems(i - 8).SubItems(209) = sh.Cells(i, "HB").Value
    ListView1.ListItems(i - 8).SubItems(210) = sh.Cells(i, "HC").Value
    ListView1.ListItems(i - 8).SubItems(211) = sh.Cells(i, "HD").Value
    ListView1.ListItems(i - 8).SubItems(212) = sh.Cells(i, "HE").Value
    ListView1.ListItems(i - 8).SubItems(213) = sh.Cells(i, "HF").Value
    ListView1.ListItems(i - 8).SubItems(214) = sh.Cells(i, "HG").Value
    ListView1.ListItems(i - 8).SubItems(215) = sh.Cells(i, "HH").Value
    ListView1.ListItems(i - 8).SubItems(216) = sh.Cells(i, "HI").Value
    ListView1.ListItems(i - 8).SubItems(217) = sh.Cells(i, "HJ").Value
    ListView1.ListItems(i - 8).SubItems(218) = sh.Cells(i, "HK").Value
    ListView1.ListItems(i - 8).SubItems(219) = sh.Cells(i, "HL").Value
    ListView1.ListItems(i - 8).SubItems(220) = sh.Cells(i, "HM").Value
    ListView1.ListItems(i - 8).SubItems(221) = sh.Cells(i, "HN").Value
    ListView1.ListItems(i - 8).SubItems(222) = sh.Cells(i, "HO").Value
    ListView1.ListItems(i - 8).SubItems(223) = sh.Cells(i, "HP").Value
    ListView1.ListItems(i - 8).SubItems(224) = sh.Cells(i, "HQ").Value
    ListView1.ListItems(i - 8).SubItems(225) = sh.Cells(i, "HR").Value
           
    ListView1.ListItems(i - 8).SubItems(226) = sh.Cells(i, "HS").Value
    ListView1.ListItems(i - 8).SubItems(227) = sh.Cells(i, "HT").Value
    ListView1.ListItems(i - 8).SubItems(228) = sh.Cells(i, "HU").Value
    ListView1.ListItems(i - 8).SubItems(229) = sh.Cells(i, "HV").Value
    ListView1.ListItems(i - 8).SubItems(230) = sh.Cells(i, "HW").Value
    ListView1.ListItems(i - 8).SubItems(231) = sh.Cells(i, "HX").Value
    ListView1.ListItems(i - 8).SubItems(232) = sh.Cells(i, "HY").Value
    ListView1.ListItems(i - 8).SubItems(233) = sh.Cells(i, "HZ").Value
    ListView1.ListItems(i - 8).SubItems(234) = sh.Cells(i, "IA").Value
    ListView1.ListItems(i - 8).SubItems(235) = sh.Cells(i, "IB").Value
    ListView1.ListItems(i - 8).SubItems(236) = sh.Cells(i, "IC").Value
    ListView1.ListItems(i - 8).SubItems(237) = sh.Cells(i, "ID").Value
    ListView1.ListItems(i - 8).SubItems(238) = sh.Cells(i, "IE").Value
    ListView1.ListItems(i - 8).SubItems(239) = sh.Cells(i, "IF").Value
    ListView1.ListItems(i - 8).SubItems(240) = sh.Cells(i, "IG").Value
    ListView1.ListItems(i - 8).SubItems(241) = sh.Cells(i, "IH").Value
    ListView1.ListItems(i - 8).SubItems(242) = sh.Cells(i, "II").Value
    
    ListView1.ListItems(i - 8).SubItems(243) = sh.Cells(i, "IJ").Value
    ListView1.ListItems(i - 8).SubItems(244) = sh.Cells(i, "IK").Value
    ListView1.ListItems(i - 8).SubItems(245) = sh.Cells(i, "IL").Value
    ListView1.ListItems(i - 8).SubItems(246) = sh.Cells(i, "IM").Value
    ListView1.ListItems(i - 8).SubItems(247) = sh.Cells(i, "IN").Value
    ListView1.ListItems(i - 8).SubItems(248) = sh.Cells(i, "IO").Value
    ListView1.ListItems(i - 8).SubItems(249) = sh.Cells(i, "IP").Value
    ListView1.ListItems(i - 8).SubItems(250) = sh.Cells(i, "IQ").Value
    ListView1.ListItems(i - 8).SubItems(251) = sh.Cells(i, "IR").Value
    ListView1.ListItems(i - 8).SubItems(252) = sh.Cells(i, "IS").Value
    ListView1.ListItems(i - 8).SubItems(253) = sh.Cells(i, "IT").Value
    ListView1.ListItems(i - 8).SubItems(254) = sh.Cells(i, "IU").Value
    ListView1.ListItems(i - 8).SubItems(255) = sh.Cells(i, "IV").Value
    ListView1.ListItems(i - 8).SubItems(256) = sh.Cells(i, "IW").Value
    ListView1.ListItems(i - 8).SubItems(257) = sh.Cells(i, "IX").Value
    ListView1.ListItems(i - 8).SubItems(258) = sh.Cells(i, "IY").Value
    ListView1.ListItems(i - 8).SubItems(259) = sh.Cells(i, "IZ").Value
    ListView1.ListItems(i - 8).SubItems(260) = sh.Cells(i, "JA").Value
    ListView1.ListItems(i - 8).SubItems(261) = sh.Cells(i, "JB").Value
    ListView1.ListItems(i - 8).SubItems(262) = sh.Cells(i, "JC").Value
    ListView1.ListItems(i - 8).SubItems(263) = sh.Cells(i, "JD").Value
    ListView1.ListItems(i - 8).SubItems(264) = sh.Cells(i, "JE").Value
    ListView1.ListItems(i - 8).SubItems(265) = sh.Cells(i, "JF").Value
    ListView1.ListItems(i - 8).SubItems(266) = sh.Cells(i, "JG").Value
    ListView1.ListItems(i - 8).SubItems(267) = sh.Cells(i, "JH").Value
    ListView1.ListItems(i - 8).SubItems(268) = sh.Cells(i, "JI").Value
    ListView1.ListItems(i - 8).SubItems(269) = sh.Cells(i, "JJ").Value
    ListView1.ListItems(i - 8).SubItems(270) = sh.Cells(i, "JK").Value
    ListView1.ListItems(i - 8).SubItems(271) = sh.Cells(i, "JL").Value
    ListView1.ListItems(i - 8).SubItems(272) = sh.Cells(i, "JM").Value
    ListView1.ListItems(i - 8).SubItems(273) = sh.Cells(i, "JN").Value
    ListView1.ListItems(i - 8).SubItems(274) = sh.Cells(i, "JO").Value
    ListView1.ListItems(i - 8).SubItems(275) = sh.Cells(i, "JP").Value
    ListView1.ListItems(i - 8).SubItems(276) = sh.Cells(i, "JQ").Value
    ListView1.ListItems(i - 8).SubItems(277) = sh.Cells(i, "JR").Value
    ListView1.ListItems(i - 8).SubItems(278) = sh.Cells(i, "JS").Value
    ListView1.ListItems(i - 8).SubItems(279) = sh.Cells(i, "JT").Value
    ListView1.ListItems(i - 8).SubItems(280) = sh.Cells(i, "JU").Value
    ListView1.ListItems(i - 8).SubItems(281) = sh.Cells(i, "JV").Value
    ListView1.ListItems(i - 8).SubItems(282) = sh.Cells(i, "JW").Value
    ListView1.ListItems(i - 8).SubItems(283) = sh.Cells(i, "JX").Value
    ListView1.ListItems(i - 8).SubItems(284) = sh.Cells(i, "JY").Value
    ListView1.ListItems(i - 8).SubItems(285) = sh.Cells(i, "JZ").Value
    ListView1.ListItems(i - 8).SubItems(286) = sh.Cells(i, "KA").Value
    ListView1.ListItems(i - 8).SubItems(287) = sh.Cells(i, "KB").Value
    ListView1.ListItems(i - 8).SubItems(288) = sh.Cells(i, "KC").Value
    ListView1.ListItems(i - 8).SubItems(289) = sh.Cells(i, "KD").Value
    ListView1.ListItems(i - 8).SubItems(290) = sh.Cells(i, "KE").Value
    ListView1.ListItems(i - 8).SubItems(291) = sh.Cells(i, "KF").Value
    ListView1.ListItems(i - 8).SubItems(292) = sh.Cells(i, "KG").Value
    ListView1.ListItems(i - 8).SubItems(293) = sh.Cells(i, "KH").Value
    ListView1.ListItems(i - 8).SubItems(294) = sh.Cells(i, "KI").Value
    ListView1.ListItems(i - 8).SubItems(295) = sh.Cells(i, "KJ").Value
    ListView1.ListItems(i - 8).SubItems(296) = sh.Cells(i, "KK").Value
    ListView1.ListItems(i - 8).SubItems(297) = sh.Cells(i, "KL").Value
    ListView1.ListItems(i - 8).SubItems(298) = sh.Cells(i, "KM").Value
    ListView1.ListItems(i - 8).SubItems(299) = sh.Cells(i, "KN").Value
    ListView1.ListItems(i - 8).SubItems(300) = sh.Cells(i, "KO").Value
    ListView1.ListItems(i - 8).SubItems(301) = sh.Cells(i, "KP").Value
    ListView1.ListItems(i - 8).SubItems(302) = sh.Cells(i, "KQ").Value
    ListView1.ListItems(i - 8).SubItems(303) = sh.Cells(i, "KR").Value
    ListView1.ListItems(i - 8).SubItems(304) = sh.Cells(i, "KS").Value
    ListView1.ListItems(i - 8).SubItems(305) = sh.Cells(i, "KT").Value
    ListView1.ListItems(i - 8).SubItems(306) = sh.Cells(i, "KU").Value
    ListView1.ListItems(i - 8).SubItems(307) = sh.Cells(i, "KV").Value
    ListView1.ListItems(i - 8).SubItems(308) = sh.Cells(i, "KW").Value
    ListView1.ListItems(i - 8).SubItems(309) = sh.Cells(i, "KX").Value
    ListView1.ListItems(i - 8).SubItems(310) = sh.Cells(i, "KY").Value
    ListView1.ListItems(i - 8).SubItems(311) = sh.Cells(i, "KZ").Value
    ListView1.ListItems(i - 8).SubItems(312) = sh.Cells(i, "LA").Value
    ListView1.ListItems(i - 8).SubItems(313) = sh.Cells(i, "LB").Value
    ListView1.ListItems(i - 8).SubItems(314) = sh.Cells(i, "LC").Value
    ListView1.ListItems(i - 8).SubItems(315) = sh.Cells(i, "LD").Value
    ListView1.ListItems(i - 8).SubItems(316) = sh.Cells(i, "LE").Value
    ListView1.ListItems(i - 8).SubItems(317) = sh.Cells(i, "LF").Value
    ListView1.ListItems(i - 8).SubItems(318) = sh.Cells(i, "LG").Value
    ListView1.ListItems(i - 8).SubItems(319) = sh.Cells(i, "LH").Value
    ListView1.ListItems(i - 8).SubItems(320) = sh.Cells(i, "LI").Value
    ListView1.ListItems(i - 8).SubItems(321) = sh.Cells(i, "LJ").Value
    ListView1.ListItems(i - 8).SubItems(322) = sh.Cells(i, "LK").Value
    ListView1.ListItems(i - 8).SubItems(323) = sh.Cells(i, "LL").Value
    ListView1.ListItems(i - 8).SubItems(324) = sh.Cells(i, "LM").Value
    ListView1.ListItems(i - 8).SubItems(325) = sh.Cells(i, "LN").Value
    ListView1.ListItems(i - 8).SubItems(326) = sh.Cells(i, "LO").Value
    ListView1.ListItems(i - 8).SubItems(327) = sh.Cells(i, "LP").Value
    ListView1.ListItems(i - 8).SubItems(328) = sh.Cells(i, "LQ").Value
    ListView1.ListItems(i - 8).SubItems(329) = sh.Cells(i, "LR").Value
    ListView1.ListItems(i - 8).SubItems(330) = sh.Cells(i, "LS").Value
    ListView1.ListItems(i - 8).SubItems(331) = sh.Cells(i, "LT").Value
    ListView1.ListItems(i - 8).SubItems(332) = sh.Cells(i, "LU").Value
    ListView1.ListItems(i - 8).SubItems(333) = sh.Cells(i, "LV").Value
    ListView1.ListItems(i - 8).SubItems(334) = sh.Cells(i, "LW").Value
    ListView1.ListItems(i - 8).SubItems(335) = sh.Cells(i, "LX").Value
    ListView1.ListItems(i - 8).SubItems(336) = sh.Cells(i, "LY").Value
    ListView1.ListItems(i - 8).SubItems(337) = sh.Cells(i, "LZ").Value
    ListView1.ListItems(i - 8).SubItems(338) = sh.Cells(i, "MA").Value
    ListView1.ListItems(i - 8).SubItems(339) = sh.Cells(i, "MB").Value
    ListView1.ListItems(i - 8).SubItems(340) = sh.Cells(i, "MC").Value
    ListView1.ListItems(i - 8).SubItems(341) = sh.Cells(i, "MD").Value
    ListView1.ListItems(i - 8).SubItems(342) = sh.Cells(i, "ME").Value
    ListView1.ListItems(i - 8).SubItems(343) = sh.Cells(i, "MF").Value
    ListView1.ListItems(i - 8).SubItems(344) = sh.Cells(i, "MG").Value
    ListView1.ListItems(i - 8).SubItems(345) = sh.Cells(i, "MH").Value
    ListView1.ListItems(i - 8).SubItems(346) = sh.Cells(i, "MI").Value
    ListView1.ListItems(i - 8).SubItems(347) = sh.Cells(i, "MJ").Value
    ListView1.ListItems(i - 8).SubItems(348) = sh.Cells(i, "MK").Value
    ListView1.ListItems(i - 8).SubItems(349) = sh.Cells(i, "ML").Value
    ListView1.ListItems(i - 8).SubItems(350) = sh.Cells(i, "MM").Value
    ListView1.ListItems(i - 8).SubItems(351) = sh.Cells(i, "MN").Value
    ListView1.ListItems(i - 8).SubItems(352) = sh.Cells(i, "MO").Value
    ListView1.ListItems(i - 8).SubItems(353) = sh.Cells(i, "MP").Value
    ListView1.ListItems(i - 8).SubItems(354) = sh.Cells(i, "MQ").Value
    ListView1.ListItems(i - 8).SubItems(355) = sh.Cells(i, "MR").Value
    ListView1.ListItems(i - 8).SubItems(356) = sh.Cells(i, "MS").Value
    ListView1.ListItems(i - 8).SubItems(357) = sh.Cells(i, "MT").Value
    ListView1.ListItems(i - 8).SubItems(358) = sh.Cells(i, "MU").Value
    ListView1.ListItems(i - 8).SubItems(359) = sh.Cells(i, "MV").Value
    ListView1.ListItems(i - 8).SubItems(360) = sh.Cells(i, "MW").Value
    ListView1.ListItems(i - 8).SubItems(361) = sh.Cells(i, "MX").Value
    ListView1.ListItems(i - 8).SubItems(362) = sh.Cells(i, "MY").Value
    ListView1.ListItems(i - 8).SubItems(363) = sh.Cells(i, "MZ").Value
    ListView1.ListItems(i - 8).SubItems(364) = sh.Cells(i, "NA").Value
    ListView1.ListItems(i - 8).SubItems(365) = sh.Cells(i, "NB").Value
    ListView1.ListItems(i - 8).SubItems(366) = sh.Cells(i, "NC").Value
    ListView1.ListItems(i - 8).SubItems(367) = sh.Cells(i, "ND").Value
    ListView1.ListItems(i - 8).SubItems(368) = sh.Cells(i, "NE").Value
    ListView1.ListItems(i - 8).SubItems(369) = sh.Cells(i, "NF").Value
    ListView1.ListItems(i - 8).SubItems(370) = sh.Cells(i, "NG").Value
    ListView1.ListItems(i - 8).SubItems(371) = sh.Cells(i, "NH").Value
    ListView1.ListItems(i - 8).SubItems(372) = sh.Cells(i, "NI").Value
    ListView1.ListItems(i - 8).SubItems(373) = sh.Cells(i, "NJ").Value
    ListView1.ListItems(i - 8).SubItems(374) = sh.Cells(i, "NK").Value
    ListView1.ListItems(i - 8).SubItems(375) = sh.Cells(i, "NL").Value
    ListView1.ListItems(i - 8).SubItems(376) = sh.Cells(i, "NM").Value
    ListView1.ListItems(i - 8).SubItems(377) = sh.Cells(i, "NN").Value
    
    ListView1.ListItems(i - 8).SubItems(378) = sh.Cells(i, "NO").Value
    ListView1.ListItems(i - 8).SubItems(379) = sh.Cells(i, "NP").Value
    ListView1.ListItems(i - 8).SubItems(380) = sh.Cells(i, "NQ").Value
    ListView1.ListItems(i - 8).SubItems(381) = sh.Cells(i, "NR").Value
    ListView1.ListItems(i - 8).SubItems(382) = sh.Cells(i, "NS").Value
    ListView1.ListItems(i - 8).SubItems(383) = sh.Cells(i, "NT").Value
    ListView1.ListItems(i - 8).SubItems(384) = sh.Cells(i, "NU").Value
    ListView1.ListItems(i - 8).SubItems(385) = sh.Cells(i, "NV").Value
    ListView1.ListItems(i - 8).SubItems(386) = sh.Cells(i, "NW").Value
    ListView1.ListItems(i - 8).SubItems(387) = sh.Cells(i, "NX").Value
    ListView1.ListItems(i - 8).SubItems(388) = sh.Cells(i, "NY").Value
    ListView1.ListItems(i - 8).SubItems(389) = sh.Cells(i, "NZ").Value
    ListView1.ListItems(i - 8).SubItems(390) = sh.Cells(i, "OA").Value
    ListView1.ListItems(i - 8).SubItems(391) = sh.Cells(i, "OB").Value
    ListView1.ListItems(i - 8).SubItems(392) = sh.Cells(i, "OC").Value
    ListView1.ListItems(i - 8).SubItems(393) = sh.Cells(i, "OD").Value
    ListView1.ListItems(i - 8).SubItems(394) = sh.Cells(i, "OE").Value
    ListView1.ListItems(i - 8).SubItems(395) = sh.Cells(i, "OF").Value
    ListView1.ListItems(i - 8).SubItems(396) = sh.Cells(i, "OG").Value
    ListView1.ListItems(i - 8).SubItems(397) = sh.Cells(i, "OH").Value
    ListView1.ListItems(i - 8).SubItems(398) = sh.Cells(i, "OI").Value
    ListView1.ListItems(i - 8).SubItems(399) = sh.Cells(i, "OJ").Value
    ListView1.ListItems(i - 8).SubItems(400) = sh.Cells(i, "OK").Value
    ListView1.ListItems(i - 8).SubItems(401) = sh.Cells(i, "OL").Value
    ListView1.ListItems(i - 8).SubItems(402) = sh.Cells(i, "OM").Value
    ListView1.ListItems(i - 8).SubItems(403) = sh.Cells(i, "ON").Value
    ListView1.ListItems(i - 8).SubItems(404) = sh.Cells(i, "OO").Value
    ListView1.ListItems(i - 8).SubItems(405) = sh.Cells(i, "OP").Value
    ListView1.ListItems(i - 8).SubItems(406) = sh.Cells(i, "OQ").Value
    ListView1.ListItems(i - 8).SubItems(407) = sh.Cells(i, "OR").Value
    ListView1.ListItems(i - 8).SubItems(408) = sh.Cells(i, "OS").Value
    ListView1.ListItems(i - 8).SubItems(409) = sh.Cells(i, "OT").Value
    ListView1.ListItems(i - 8).SubItems(410) = sh.Cells(i, "OU").Value
    ListView1.ListItems(i - 8).SubItems(411) = sh.Cells(i, "OV").Value
    ListView1.ListItems(i - 8).SubItems(412) = sh.Cells(i, "OW").Value
    ListView1.ListItems(i - 8).SubItems(413) = sh.Cells(i, "OX").Value
    ListView1.ListItems(i - 8).SubItems(414) = sh.Cells(i, "OY").Value
    ListView1.ListItems(i - 8).SubItems(415) = sh.Cells(i, "OZ").Value
    ListView1.ListItems(i - 8).SubItems(416) = sh.Cells(i, "PA").Value
    ListView1.ListItems(i - 8).SubItems(417) = sh.Cells(i, "PB").Value
    ListView1.ListItems(i - 8).SubItems(418) = sh.Cells(i, "PC").Value
    ListView1.ListItems(i - 8).SubItems(419) = sh.Cells(i, "PD").Value
    ListView1.ListItems(i - 8).SubItems(420) = sh.Cells(i, "PE").Value
    ListView1.ListItems(i - 8).SubItems(421) = sh.Cells(i, "PF").Value
    ListView1.ListItems(i - 8).SubItems(422) = sh.Cells(i, "PG").Value
    ListView1.ListItems(i - 8).SubItems(423) = sh.Cells(i, "PH").Value
    ListView1.ListItems(i - 8).SubItems(424) = sh.Cells(i, "PI").Value
    ListView1.ListItems(i - 8).SubItems(425) = sh.Cells(i, "PJ").Value
    ListView1.ListItems(i - 8).SubItems(426) = sh.Cells(i, "PK").Value
    ListView1.ListItems(i - 8).SubItems(427) = sh.Cells(i, "PL").Value
    ListView1.ListItems(i - 8).SubItems(428) = sh.Cells(i, "PM").Value
    ListView1.ListItems(i - 8).SubItems(429) = sh.Cells(i, "PN").Value
    ListView1.ListItems(i - 8).SubItems(430) = sh.Cells(i, "PO").Value
    ListView1.ListItems(i - 8).SubItems(431) = sh.Cells(i, "PP").Value
    ListView1.ListItems(i - 8).SubItems(432) = sh.Cells(i, "PQ").Value
    ListView1.ListItems(i - 8).SubItems(433) = sh.Cells(i, "PR").Value
    ListView1.ListItems(i - 8).SubItems(434) = sh.Cells(i, "PS").Value
    ListView1.ListItems(i - 8).SubItems(435) = sh.Cells(i, "PT").Value
    ListView1.ListItems(i - 8).SubItems(436) = sh.Cells(i, "PU").Value
    ListView1.ListItems(i - 8).SubItems(437) = sh.Cells(i, "PV").Value
    ListView1.ListItems(i - 8).SubItems(438) = sh.Cells(i, "PW").Value
    ListView1.ListItems(i - 8).SubItems(439) = sh.Cells(i, "PX").Value
    ListView1.ListItems(i - 8).SubItems(440) = sh.Cells(i, "PY").Value
    ListView1.ListItems(i - 8).SubItems(441) = sh.Cells(i, "PZ").Value
    ListView1.ListItems(i - 8).SubItems(442) = sh.Cells(i, "QA").Value
    ListView1.ListItems(i - 8).SubItems(443) = sh.Cells(i, "QB").Value
    ListView1.ListItems(i - 8).SubItems(444) = sh.Cells(i, "QC").Value
    ListView1.ListItems(i - 8).SubItems(445) = sh.Cells(i, "QD").Value
    ListView1.ListItems(i - 8).SubItems(446) = sh.Cells(i, "QE").Value
    ListView1.ListItems(i - 8).SubItems(447) = sh.Cells(i, "QF").Value
    ListView1.ListItems(i - 8).SubItems(448) = sh.Cells(i, "QG").Value
    ListView1.ListItems(i - 8).SubItems(449) = sh.Cells(i, "QH").Value
    ListView1.ListItems(i - 8).SubItems(450) = sh.Cells(i, "QI").Value
    ListView1.ListItems(i - 8).SubItems(451) = sh.Cells(i, "QJ").Value
    ListView1.ListItems(i - 8).SubItems(452) = sh.Cells(i, "QK").Value
    ListView1.ListItems(i - 8).SubItems(453) = sh.Cells(i, "QL").Value
    ListView1.ListItems(i - 8).SubItems(454) = sh.Cells(i, "QM").Value
    ListView1.ListItems(i - 8).SubItems(455) = sh.Cells(i, "QN").Value
    ListView1.ListItems(i - 8).SubItems(456) = sh.Cells(i, "QO").Value
    ListView1.ListItems(i - 8).SubItems(457) = sh.Cells(i, "QP").Value
    ListView1.ListItems(i - 8).SubItems(458) = sh.Cells(i, "QQ").Value
    ListView1.ListItems(i - 8).SubItems(459) = sh.Cells(i, "QR").Value
    ListView1.ListItems(i - 8).SubItems(460) = sh.Cells(i, "QS").Value
    ListView1.ListItems(i - 8).SubItems(461) = sh.Cells(i, "QT").Value
    ListView1.ListItems(i - 8).SubItems(462) = sh.Cells(i, "QU").Value
    ListView1.ListItems(i - 8).SubItems(463) = sh.Cells(i, "QV").Value
    ListView1.ListItems(i - 8).SubItems(464) = sh.Cells(i, "QW").Value
    ListView1.ListItems(i - 8).SubItems(465) = sh.Cells(i, "QX").Value
    ListView1.ListItems(i - 8).SubItems(466) = sh.Cells(i, "QY").Value
    ListView1.ListItems(i - 8).SubItems(467) = sh.Cells(i, "QZ").Value
    ListView1.ListItems(i - 8).SubItems(468) = sh.Cells(i, "RA").Value
    ListView1.ListItems(i - 8).SubItems(469) = sh.Cells(i, "RB").Value
    ListView1.ListItems(i - 8).SubItems(470) = sh.Cells(i, "RC").Value
    ListView1.ListItems(i - 8).SubItems(471) = sh.Cells(i, "RD").Value
    ListView1.ListItems(i - 8).SubItems(472) = sh.Cells(i, "RE").Value
    ListView1.ListItems(i - 8).SubItems(473) = sh.Cells(i, "RF").Value
    ListView1.ListItems(i - 8).SubItems(474) = sh.Cells(i, "RG").Value
    ListView1.ListItems(i - 8).SubItems(475) = sh.Cells(i, "RH").Value
    ListView1.ListItems(i - 8).SubItems(476) = sh.Cells(i, "RI").Value
    ListView1.ListItems(i - 8).SubItems(477) = sh.Cells(i, "RJ").Value
    ListView1.ListItems(i - 8).SubItems(478) = sh.Cells(i, "RK").Value
    ListView1.ListItems(i - 8).SubItems(479) = sh.Cells(i, "RL").Value
    ListView1.ListItems(i - 8).SubItems(480) = sh.Cells(i, "RM").Value
    ListView1.ListItems(i - 8).SubItems(481) = sh.Cells(i, "RN").Value
    ListView1.ListItems(i - 8).SubItems(482) = sh.Cells(i, "RO").Value
    ListView1.ListItems(i - 8).SubItems(483) = sh.Cells(i, "RP").Value
    ListView1.ListItems(i - 8).SubItems(484) = sh.Cells(i, "RQ").Value
    ListView1.ListItems(i - 8).SubItems(485) = sh.Cells(i, "RR").Value
    ListView1.ListItems(i - 8).SubItems(486) = sh.Cells(i, "RS").Value
    ListView1.ListItems(i - 8).SubItems(487) = sh.Cells(i, "RT").Value
    ListView1.ListItems(i - 8).SubItems(488) = sh.Cells(i, "RU").Value
    ListView1.ListItems(i - 8).SubItems(489) = sh.Cells(i, "RV").Value
    ListView1.ListItems(i - 8).SubItems(490) = sh.Cells(i, "RW").Value
    ListView1.ListItems(i - 8).SubItems(491) = sh.Cells(i, "RX").Value
    ListView1.ListItems(i - 8).SubItems(492) = sh.Cells(i, "RY").Value
    ListView1.ListItems(i - 8).SubItems(493) = sh.Cells(i, "RZ").Value
    ListView1.ListItems(i - 8).SubItems(494) = sh.Cells(i, "SA").Value
    ListView1.ListItems(i - 8).SubItems(495) = sh.Cells(i, "SB").Value
    ListView1.ListItems(i - 8).SubItems(496) = sh.Cells(i, "SC").Value
    ListView1.ListItems(i - 8).SubItems(497) = sh.Cells(i, "SD").Value
    ListView1.ListItems(i - 8).SubItems(498) = sh.Cells(i, "SE").Value
    ListView1.ListItems(i - 8).SubItems(499) = sh.Cells(i, "SF").Value
    ListView1.ListItems(i - 8).SubItems(500) = sh.Cells(i, "SG").Value
    ListView1.ListItems(i - 8).SubItems(501) = sh.Cells(i, "SH").Value
    ListView1.ListItems(i - 8).SubItems(502) = sh.Cells(i, "SI").Value
    ListView1.ListItems(i - 8).SubItems(503) = sh.Cells(i, "SJ").Value
    ListView1.ListItems(i - 8).SubItems(504) = sh.Cells(i, "SK").Value
    ListView1.ListItems(i - 8).SubItems(505) = sh.Cells(i, "SL").Value
    ListView1.ListItems(i - 8).SubItems(506) = sh.Cells(i, "SM").Value
    ListView1.ListItems(i - 8).SubItems(507) = sh.Cells(i, "SN").Value
    ListView1.ListItems(i - 8).SubItems(508) = sh.Cells(i, "SO").Value
    ListView1.ListItems(i - 8).SubItems(509) = sh.Cells(i, "SP").Value
    ListView1.ListItems(i - 8).SubItems(510) = sh.Cells(i, "SQ").Value
    ListView1.ListItems(i - 8).SubItems(511) = sh.Cells(i, "SR").Value
    ListView1.ListItems(i - 8).SubItems(512) = sh.Cells(i, "SS").Value
 
 
Next i
ListView1.SelectedItem = Nothing
End Sub

kodlama uzun olduğundan bu hatayı aldım arkadaşlar çözümü varmı, yardımcı olursanız sevinirim.
 
Bahsettiğiniz yerden kendi sorunuma çözüm bulamadım, orayı zaten incelemiştim. Açıklayıcı bir çözümünüzü yazarsanız sevinirim. saygılar.
 
Birde bu sorunu modül kullanmadan çözmemiz mümkün değil mi mesela döngü kullanılabilirmi, yada başka bi çözüm varmı?
 
Bu satır için bir döngü kurabilirsiniz. Tabii ki sütun artan sıralı olmalı.
Kod: 
for y = 1 to 512
ListView1.ListItems(i - 8).SubItems([color=red]y[/color]) = sh.Cells(i,([color=red]y[/color] ).Value
next
 
teşekkür ederim yalnız bunu nasıl kullanacağım, kendi kodlarımdan nereleri kaldıracağım bunu koyacağım, benim kodlar üzerinde değişiklik yapıp bunu eklerseniz çok büyük bir iyilik yapmış olursunuz. Sütunlar yazdığım gibi artarak gidiyor, yardımınızı bekliyorum. saygılar.
 
Kod: 
Dim sat As Long, sh As Worksheet, i As Long
ListView1.ListItems.Clear
Set sh = Sheets("GüçTrafolarıTestleri")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 9 To sat

 For y = 1 To 512
ListView1.ListItems(i - 8).SubItems(y) = sh.Cells(i, (y)).Value
Next y
       
Next i
ListView1.SelectedItem = Nothing
End Sub

index out of bounds hatası vermekte.


bu şekilde yaptım çalışmadı
 
for y=9 olarak başlat
 
9 yaptım önce index out of bounds hatası verdi sonra düzeldi yalnız listviewde veriler gözükmüyor, kayıt sayfasında veri var.
 
Kod: 
Dim sat As Long, sh As Worksheet, i As Long
ListView1.ListItems.Clear
Set sh = Sheets("GüçTrafolarıTestleri")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 9 To sat

For y = 1 To 512
ListView1.ListItems(i - 8).SubItems(y) = sh.Cells(i, (y[B][COLOR="Red"]+1[/COLOR][/B])).Value
Next y
       
Next i
ListView1.SelectedItem = Nothing
End Sub

Şeklinde olmalı sanırım. Verileriniz B (2.sütun) sütunundan başlamış. y değişkeni ise 1 değeri ile başlıyor.
 
denedim yalnız

ListView1.ListItems(i - 8).SubItems(y) = sh.Cells(i, (y+1)).Value

kısmında hata gösteriyor.
 
örnek dosya yollayınız.:cool:
 
Hocam Dosya Ektedir? yardımınız için şimdiden teşekkürler. Hocam birde

Kaydet kısmınıda döngü haline getirebilirmiyiz çünkü sütunlar sıralı gitmekte. kısaltmak için bişeyler yapılabilirmi?
 

Ekli dosyalar

hocam çok teşekkür ederim emeğinize sağlık,

Hocam kodlamanın alt kısmında bulunan kodlama içinde bir döngü yazılabilirmi?

Kod: 
.Add , , sh.Cells(8, 1), sh.Range("A8").Width
.Add , , sh.Cells(8, 2), sh.Range("B8").Width
.Add , , sh.Cells(8, 3), sh.Range("C8").Width
.Add , , sh.Cells(8, 4), sh.Range("D8").Width
.Add , , sh.Cells(8, 5), sh.Range("E8").Width
.Add , , sh.Cells(8, 6), sh.Range("F8").Width
.Add , , sh.Cells(8, 7), sh.Range("G8").Width
.Add , , sh.Cells(8, 8), sh.Range("H8").Width
.Add , , sh.Cells(8, 9), sh.Range("I8").Width
.Add , , sh.Cells(8, 10), sh.Range("J8").Width
.Add , , sh.Cells(8, 11), sh.Range("K8").Width
.Add , , sh.Cells(8, 12), sh.Range("L8").Width
.Add , , sh.Cells(8, 13), sh.Range("M8").Width
.Add , , sh.Cells(8, 14), sh.Range("N8").Width
.Add , , sh.Cells(8, 15), sh.Range("O8").Width
.Add , , sh.Cells(8, 16), sh.Range("P8").Width
.Add , , sh.Cells(8, 17), sh.Range("Q8").Width
.Add , , sh.Cells(8, 18), sh.Range("R8").Width
.Add , , sh.Cells(8, 19), sh.Range("S8").Width

.Add , , sh.Cells(8, 20), sh.Range("T8").Width
.Add , , sh.Cells(8, 21), sh.Range("U8").Width
.Add , , sh.Cells(8, 22), sh.Range("V8").Width
.Add , , sh.Cells(8, 23), sh.Range("W8").Width
.Add , , sh.Cells(8, 24), sh.Range("X8").Width
.Add , , sh.Cells(8, 25), sh.Range("Y8").Width
.Add , , sh.Cells(8, 26), sh.Range("Z8").Width

.Add , , sh.Cells(8, 27), sh.Range("AA8").Width
.Add , , sh.Cells(8, 28), sh.Range("AB8").Width
.Add , , sh.Cells(8, 29), sh.Range("AC8").Width
.Add , , sh.Cells(8, 30), sh.Range("AD8").Width
.Add , , sh.Cells(8, 31), sh.Range("AE8").Width
.Add , , sh.Cells(8, 32), sh.Range("AF8").Width
.Add , , sh.Cells(8, 33), sh.Range("AG8").Width

.Add , , sh.Cells(8, 34), sh.Range("AH8").Width
.Add , , sh.Cells(8, 35), sh.Range("AI8").Width
.Add , , sh.Cells(8, 36), sh.Range("AJ8").Width
.Add , , sh.Cells(8, 37), sh.Range("AK8").Width
.Add , , sh.Cells(8, 38), sh.Range("AL8").Width
.Add , , sh.Cells(8, 39), sh.Range("AM8").Width
.Add , , sh.Cells(8, 40), sh.Range("AN8").Width

.Add , , sh.Cells(8, 41), sh.Range("AO8").Width
.Add , , sh.Cells(8, 42), sh.Range("AP8").Width
.Add , , sh.Cells(8, 43), sh.Range("AQ8").Width
.Add , , sh.Cells(8, 44), sh.Range("AR8").Width
.Add , , sh.Cells(8, 45), sh.Range("AS8").Width
.Add , , sh.Cells(8, 46), sh.Range("AT8").Width
.Add , , sh.Cells(8, 47), sh.Range("AU8").Width

.Add , , sh.Cells(8, 48), sh.Range("AV8").Width
.Add , , sh.Cells(8, 49), sh.Range("AW8").Width
.Add , , sh.Cells(8, 50), sh.Range("AX8").Width
.Add , , sh.Cells(8, 51), sh.Range("AY8").Width
.Add , , sh.Cells(8, 52), sh.Range("AZ8").Width
.Add , , sh.Cells(8, 53), sh.Range("BA8").Width
.Add , , sh.Cells(8, 54), sh.Range("BB8").Width

.Add , , sh.Cells(8, 55), sh.Range("BC8").Width
.Add , , sh.Cells(8, 56), sh.Range("BD8").Width
.Add , , sh.Cells(8, 57), sh.Range("BE8").Width
.Add , , sh.Cells(8, 58), sh.Range("BF8").Width
.Add , , sh.Cells(8, 59), sh.Range("BG8").Width
.Add , , sh.Cells(8, 60), sh.Range("BH8").Width
.Add , , sh.Cells(8, 61), sh.Range("BI8").Width
.Add , , sh.Cells(8, 62), sh.Range("BJ8").Width

.Add , , sh.Cells(8, 63), sh.Range("BK8").Width
.Add , , sh.Cells(8, 64), sh.Range("BL8").Width
.Add , , sh.Cells(8, 65), sh.Range("BM8").Width
.Add , , sh.Cells(8, 66), sh.Range("BN8").Width
.Add , , sh.Cells(8, 67), sh.Range("BO8").Width
.Add , , sh.Cells(8, 68), sh.Range("BP8").Width
.Add , , sh.Cells(8, 69), sh.Range("BQ8").Width
.Add , , sh.Cells(8, 70), sh.Range("BR8").Width

.Add , , sh.Cells(8, 71), sh.Range("BS8").Width
.Add , , sh.Cells(8, 72), sh.Range("BT8").Width



.Add , , sh.Cells(8, 73), sh.Range("BU8").Width
.Add , , sh.Cells(8, 74), sh.Range("BV8").Width
.Add , , sh.Cells(8, 75), sh.Range("BW8").Width
.Add , , sh.Cells(8, 76), sh.Range("BX8").Width

.Add , , sh.Cells(8, 77), sh.Range("BY8").Width
.Add , , sh.Cells(8, 78), sh.Range("BZ8").Width
.Add , , sh.Cells(8, 79), sh.Range("CA8").Width
.Add , , sh.Cells(8, 80), sh.Range("CB8").Width
.Add , , sh.Cells(8, 81), sh.Range("CC8").Width
.Add , , sh.Cells(8, 82), sh.Range("CD8").Width
.Add , , sh.Cells(8, 83), sh.Range("CE8").Width
.Add , , sh.Cells(8, 84), sh.Range("CF8").Width

.Add , , sh.Cells(8, 85), sh.Range("CG8").Width
.Add , , sh.Cells(8, 86), sh.Range("CH8").Width
.Add , , sh.Cells(8, 87), sh.Range("CI8").Width
.Add , , sh.Cells(8, 88), sh.Range("CJ8").Width
.Add , , sh.Cells(8, 89), sh.Range("CK8").Width
.Add , , sh.Cells(8, 90), sh.Range("CL8").Width

.Add , , sh.Cells(8, 91), sh.Range("CM8").Width
.Add , , sh.Cells(8, 92), sh.Range("CN8").Width
.Add , , sh.Cells(8, 93), sh.Range("CO8").Width
.Add , , sh.Cells(8, 94), sh.Range("CP8").Width
.Add , , sh.Cells(8, 95), sh.Range("CQ8").Width
.Add , , sh.Cells(8, 96), sh.Range("CR8").Width
.Add , , sh.Cells(8, 97), sh.Range("CS8").Width
.Add , , sh.Cells(8, 98), sh.Range("CT8").Width

.Add , , sh.Cells(8, 99), sh.Range("CU8").Width
.Add , , sh.Cells(8, 100), sh.Range("CV8").Width
.Add , , sh.Cells(8, 101), sh.Range("CW8").Width
.Add , , sh.Cells(8, 102), sh.Range("CX8").Width
.Add , , sh.Cells(8, 103), sh.Range("CY8").Width
.Add , , sh.Cells(8, 104), sh.Range("CZ8").Width

.Add , , sh.Cells(8, 105), sh.Range("DA8").Width
.Add , , sh.Cells(8, 106), sh.Range("DB8").Width
.Add , , sh.Cells(8, 107), sh.Range("DC8").Width
.Add , , sh.Cells(8, 108), sh.Range("DD8").Width
.Add , , sh.Cells(8, 109), sh.Range("DE8").Width
.Add , , sh.Cells(8, 110), sh.Range("DF8").Width
.Add , , sh.Cells(8, 111), sh.Range("DG8").Width
.Add , , sh.Cells(8, 112), sh.Range("DH8").Width

.Add , , sh.Cells(8, 113), sh.Range("DI8").Width
.Add , , sh.Cells(8, 114), sh.Range("DJ8").Width
.Add , , sh.Cells(8, 115), sh.Range("DK8").Width
.Add , , sh.Cells(8, 116), sh.Range("DL8").Width
.Add , , sh.Cells(8, 117), sh.Range("DM8").Width
.Add , , sh.Cells(8, 118), sh.Range("DN8").Width

.Add , , sh.Cells(8, 119), sh.Range("DO8").Width
.Add , , sh.Cells(8, 120), sh.Range("DP8").Width
.Add , , sh.Cells(8, 121), sh.Range("DQ8").Width
.Add , , sh.Cells(8, 122), sh.Range("DR8").Width
.Add , , sh.Cells(8, 123), sh.Range("DS8").Width
.Add , , sh.Cells(8, 124), sh.Range("DT8").Width
.Add , , sh.Cells(8, 125), sh.Range("DU8").Width
.Add , , sh.Cells(8, 126), sh.Range("DV8").Width

.Add , , sh.Cells(8, 127), sh.Range("DW8").Width
.Add , , sh.Cells(8, 128), sh.Range("DX8").Width
.Add , , sh.Cells(8, 129), sh.Range("DY8").Width
.Add , , sh.Cells(8, 130), sh.Range("DZ8").Width
.Add , , sh.Cells(8, 131), sh.Range("EA8").Width
.Add , , sh.Cells(8, 132), sh.Range("EB8").Width

.Add , , sh.Cells(8, 133), sh.Range("EC8").Width
.Add , , sh.Cells(8, 134), sh.Range("ED8").Width


.Add , , sh.Cells(8, 135), sh.Range("EE8").Width
.Add , , sh.Cells(8, 136), sh.Range("EF8").Width
.Add , , sh.Cells(8, 137), sh.Range("EG8").Width
.Add , , sh.Cells(8, 138), sh.Range("EH8").Width
.Add , , sh.Cells(8, 139), sh.Range("EI8").Width
.Add , , sh.Cells(8, 140), sh.Range("EJ8").Width
.Add , , sh.Cells(8, 141), sh.Range("EK8").Width
.Add , , sh.Cells(8, 142), sh.Range("EL8").Width
.Add , , sh.Cells(8, 143), sh.Range("EM8").Width
.Add , , sh.Cells(8, 144), sh.Range("EN8").Width
.Add , , sh.Cells(8, 145), sh.Range("EO8").Width
.Add , , sh.Cells(8, 146), sh.Range("EP8").Width
.Add , , sh.Cells(8, 147), sh.Range("EQ8").Width
.Add , , sh.Cells(8, 148), sh.Range("ER8").Width
.Add , , sh.Cells(8, 149), sh.Range("ES8").Width
.Add , , sh.Cells(8, 150), sh.Range("ET8").Width
.Add , , sh.Cells(8, 151), sh.Range("EU8").Width
.Add , , sh.Cells(8, 152), sh.Range("EV8").Width
.Add , , sh.Cells(8, 153), sh.Range("EW8").Width
.Add , , sh.Cells(8, 154), sh.Range("EX8").Width

.Add , , sh.Cells(8, 155), sh.Range("EY8").Width
.Add , , sh.Cells(8, 156), sh.Range("EZ8").Width
.Add , , sh.Cells(8, 157), sh.Range("FA8").Width
.Add , , sh.Cells(8, 158), sh.Range("FB8").Width
.Add , , sh.Cells(8, 159), sh.Range("FC8").Width
.Add , , sh.Cells(8, 160), sh.Range("FD8").Width
.Add , , sh.Cells(8, 161), sh.Range("FE8").Width
.Add , , sh.Cells(8, 162), sh.Range("FF8").Width
.Add , , sh.Cells(8, 163), sh.Range("FG8").Width
.Add , , sh.Cells(8, 164), sh.Range("FH8").Width
.Add , , sh.Cells(8, 165), sh.Range("FI8").Width
.Add , , sh.Cells(8, 166), sh.Range("FJ8").Width
.Add , , sh.Cells(8, 167), sh.Range("FK8").Width
.Add , , sh.Cells(8, 168), sh.Range("FL8").Width
.Add , , sh.Cells(8, 169), sh.Range("FM8").Width
.Add , , sh.Cells(8, 170), sh.Range("FN8").Width
.Add , , sh.Cells(8, 171), sh.Range("FO8").Width
.Add , , sh.Cells(8, 172), sh.Range("FP8").Width
.Add , , sh.Cells(8, 173), sh.Range("FQ8").Width
.Add , , sh.Cells(8, 174), sh.Range("FR8").Width

.Add , , sh.Cells(8, 175), sh.Range("FS8").Width
.Add , , sh.Cells(8, 176), sh.Range("FT8").Width
.Add , , sh.Cells(8, 177), sh.Range("FU8").Width
.Add , , sh.Cells(8, 178), sh.Range("FV8").Width
.Add , , sh.Cells(8, 179), sh.Range("FW8").Width
.Add , , sh.Cells(8, 180), sh.Range("FX8").Width
.Add , , sh.Cells(8, 181), sh.Range("FY8").Width
.Add , , sh.Cells(8, 182), sh.Range("FZ8").Width
.Add , , sh.Cells(8, 183), sh.Range("GA8").Width
.Add , , sh.Cells(8, 184), sh.Range("GB8").Width
.Add , , sh.Cells(8, 185), sh.Range("GC8").Width
.Add , , sh.Cells(8, 186), sh.Range("GD8").Width
.Add , , sh.Cells(8, 187), sh.Range("GE8").Width
.Add , , sh.Cells(8, 188), sh.Range("GF8").Width
.Add , , sh.Cells(8, 189), sh.Range("GG8").Width
.Add , , sh.Cells(8, 190), sh.Range("GH8").Width
.Add , , sh.Cells(8, 191), sh.Range("GI8").Width
.Add , , sh.Cells(8, 192), sh.Range("GJ8").Width
.Add , , sh.Cells(8, 193), sh.Range("GK8").Width
.Add , , sh.Cells(8, 194), sh.Range("GL8").Width

.Add , , sh.Cells(8, 195), sh.Range("GM8").Width
.Add , , sh.Cells(8, 196), sh.Range("GN8").Width
.Add , , sh.Cells(8, 197), sh.Range("GO8").Width
.Add , , sh.Cells(8, 198), sh.Range("GP8").Width
.Add , , sh.Cells(8, 199), sh.Range("GQ8").Width
.Add , , sh.Cells(8, 200), sh.Range("GR8").Width
.Add , , sh.Cells(8, 201), sh.Range("GS8").Width
.Add , , sh.Cells(8, 202), sh.Range("GT8").Width
.Add , , sh.Cells(8, 203), sh.Range("GU8").Width
.Add , , sh.Cells(8, 204), sh.Range("GV8").Width


.Add , , sh.Cells(8, 205), sh.Range("GW8").Width
.Add , , sh.Cells(8, 206), sh.Range("GX8").Width
.Add , , sh.Cells(8, 207), sh.Range("GY8").Width
.Add , , sh.Cells(8, 208), sh.Range("GZ8").Width
.Add , , sh.Cells(8, 209), sh.Range("HA8").Width
.Add , , sh.Cells(8, 210), sh.Range("HB8").Width
.Add , , sh.Cells(8, 211), sh.Range("HC8").Width
.Add , , sh.Cells(8, 212), sh.Range("HD8").Width
.Add , , sh.Cells(8, 213), sh.Range("HE8").Width
.Add , , sh.Cells(8, 214), sh.Range("HF8").Width


.Add , , sh.Cells(8, 215), sh.Range("HG8").Width
.Add , , sh.Cells(8, 216), sh.Range("HH8").Width
.Add , , sh.Cells(8, 217), sh.Range("HI8").Width
.Add , , sh.Cells(8, 218), sh.Range("HJ8").Width
.Add , , sh.Cells(8, 219), sh.Range("HK8").Width
.Add , , sh.Cells(8, 220), sh.Range("HL8").Width
.Add , , sh.Cells(8, 221), sh.Range("HM8").Width
.Add , , sh.Cells(8, 222), sh.Range("HN8").Width
.Add , , sh.Cells(8, 223), sh.Range("HO8").Width
.Add , , sh.Cells(8, 224), sh.Range("HP8").Width

.Add , , sh.Cells(8, 225), sh.Range("HQ8").Width
.Add , , sh.Cells(8, 226), sh.Range("HR8").Width
 
Son düzenleme:
Dosyayı günceledim,hatayıda giderdim.
14 nolu mesajdan dosyayı indirebilirsiniz.:cool:
 
Hocam sizden Allah razı olsun. çok makbule geçti, yardımlarınız için çok teşekkürler.

Hocam sütun sayısını arttırmak istediğimde listview de 355 den sonra kaydırma çubuğu pasif oluyor. bu nesne ile ilgili bir durum değilmi, doğrusu benim 512 sütun var. dosyada dikkat ettiyseniz eğer.
 
Son düzenleme:
Kod: 
Private Sub ListView1_DblClick()
' LISTVIEW'E ÇİFT TIKLAYINCA VERİLERİ TEXTBOX'LARIN İÇİNE ALIR
  On Error Resume Next
  If ListView1.ListItems.Count = 0 Then Exit Sub
    X = ListView1.SelectedItem.Index
     TextBox1.Text = ListView1.ListItems(X)
    TextBox2.Text = ListView1.ListItems(X).ListSubItems(1).Text
    ComboBox1.Text = ListView1.ListItems(X).ListSubItems(2).Text
    ComboBox2.Text = ListView1.ListItems(X).ListSubItems(3).Text
    TextBox3.Text = ListView1.ListItems(X).ListSubItems(4).Text
    ComboBox3.Text = ListView1.ListItems(X).ListSubItems(5).Text
    TextBox4.Text = ListView1.ListItems(X).ListSubItems(6).Text
    TextBox5.Text = ListView1.ListItems(X).ListSubItems(7).Text
    TextBox6.Text = ListView1.ListItems(X).ListSubItems(8).Text
    TextBox7.Text = ListView1.ListItems(X).ListSubItems(9).Text
    TextBox8.Text = ListView1.ListItems(X).ListSubItems(10).Text
    TextBox9.Text = ListView1.ListItems(X).ListSubItems(11).Text
    TextBox10.Text = ListView1.ListItems(X).ListSubItems(12).Text
    TextBox11.Text = ListView1.ListItems(X).ListSubItems(13).Text
    TextBox12.Text = ListView1.ListItems(X).ListSubItems(14).Text
    TextBox13.Text = ListView1.ListItems(X).ListSubItems(15).Text
    ComboBox4.Text = ListView1.ListItems(X).ListSubItems(16).Text
    TextBox14.Text = ListView1.ListItems(X).ListSubItems(17).Text
    TextBox15.Text = ListView1.ListItems(X).ListSubItems(18).Text
    TextBox16.Text = ListView1.ListItems(X).ListSubItems(19).Text
    TextBox17.Text = ListView1.ListItems(X).ListSubItems(20).Text
    TextBox18.Text = ListView1.ListItems(X).ListSubItems(21).Text
    TextBox19.Text = ListView1.ListItems(X).ListSubItems(22).Text
    TextBox20.Text = ListView1.ListItems(X).ListSubItems(23).Text
    TextBox21.Text = ListView1.ListItems(X).ListSubItems(24).Text
    TextBox22.Text = ListView1.ListItems(X).ListSubItems(25).Text
    
    TextBox23.Text = ListView1.ListItems(X).ListSubItems(26).Text
    TextBox24.Text = ListView1.ListItems(X).ListSubItems(27).Text
    TextBox25.Text = ListView1.ListItems(X).ListSubItems(28).Text
    TextBox26.Text = ListView1.ListItems(X).ListSubItems(29).Text
    TextBox27.Text = ListView1.ListItems(X).ListSubItems(30).Text
    TextBox28.Text = ListView1.ListItems(X).ListSubItems(31).Text
    TextBox29.Text = ListView1.ListItems(X).ListSubItems(32).Text
    
    TextBox30.Text = ListView1.ListItems(X).ListSubItems(33).Text
    TextBox31.Text = ListView1.ListItems(X).ListSubItems(34).Text
    TextBox32.Text = ListView1.ListItems(X).ListSubItems(35).Text
    TextBox33.Text = ListView1.ListItems(X).ListSubItems(36).Text
    TextBox34.Text = ListView1.ListItems(X).ListSubItems(37).Text
    TextBox35.Text = ListView1.ListItems(X).ListSubItems(38).Text
    TextBox36.Text = ListView1.ListItems(X).ListSubItems(39).Text
    
    TextBox37.Text = ListView1.ListItems(X).ListSubItems(40).Text
    TextBox38.Text = ListView1.ListItems(X).ListSubItems(41).Text
    TextBox39.Text = ListView1.ListItems(X).ListSubItems(42).Text
    TextBox40.Text = ListView1.ListItems(X).ListSubItems(43).Text
    TextBox41.Text = ListView1.ListItems(X).ListSubItems(44).Text
    TextBox42.Text = ListView1.ListItems(X).ListSubItems(45).Text
    TextBox43.Text = ListView1.ListItems(X).ListSubItems(46).Text
    
    TextBox44.Text = ListView1.ListItems(X).ListSubItems(47).Text
    TextBox45.Text = ListView1.ListItems(X).ListSubItems(48).Text
    TextBox46.Text = ListView1.ListItems(X).ListSubItems(49).Text
    TextBox47.Text = ListView1.ListItems(X).ListSubItems(50).Text
    TextBox48.Text = ListView1.ListItems(X).ListSubItems(51).Text
    TextBox49.Text = ListView1.ListItems(X).ListSubItems(52).Text
    TextBox50.Text = ListView1.ListItems(X).ListSubItems(53).Text
    
    TextBox51.Text = ListView1.ListItems(X).ListSubItems(54).Text
    TextBox52.Text = ListView1.ListItems(X).ListSubItems(55).Text
    TextBox53.Text = ListView1.ListItems(X).ListSubItems(56).Text
    TextBox54.Text = ListView1.ListItems(X).ListSubItems(57).Text
    TextBox55.Text = ListView1.ListItems(X).ListSubItems(58).Text
    TextBox56.Text = ListView1.ListItems(X).ListSubItems(59).Text
    TextBox57.Text = ListView1.ListItems(X).ListSubItems(60).Text
    TextBox58.Text = ListView1.ListItems(X).ListSubItems(61).Text
    
    TextBox59.Text = ListView1.ListItems(X).ListSubItems(62).Text
    TextBox60.Text = ListView1.ListItems(X).ListSubItems(63).Text
    TextBox61.Text = ListView1.ListItems(X).ListSubItems(64).Text
    TextBox62.Text = ListView1.ListItems(X).ListSubItems(65).Text
    TextBox63.Text = ListView1.ListItems(X).ListSubItems(66).Text
    TextBox64.Text = ListView1.ListItems(X).ListSubItems(67).Text
    TextBox65.Text = ListView1.ListItems(X).ListSubItems(68).Text
    TextBox66.Text = ListView1.ListItems(X).ListSubItems(69).Text
        
    ComboBox5.Text = ListView1.ListItems(X).ListSubItems(70).Text
    TextBox67.Text = ListView1.ListItems(X).ListSubItems(71).Text
       
 
    yeni = False
End Sub

Hocam kusura bakmayın sizi tekrar rahatsız ediyorum, yukarıdaki kodlamayı for döngüsü kullanarak nasıl kısaltabilirim, daha öncekiler gibi çünkü sütun sayım çok fazla, şimdiden teşekkürler. saygılar.
 
örnek dosya ekleyiniz.:cool:
 
Hocam 18 nolu mesajda belirttiğim kodlar 14 nolu mesajda göndermiş olduğunuz dosyanın bir parçası, onun üzerine ekleyerek düzenleyebilirmisiniz. saygılar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst