excel - Loop each cell from sheet1 and always replace in 1 cell at sheet2 -
i had problem, when want use each name c1 c21 sheet1 , insert in nameuser url address. delete each name sheet1 c1 c21 not replace destination b2 @ sheet2 every name.
sub url_get_query() dim wb workbook dim src worksheet dim tgt worksheet set wb = thisworkbook set src = wb.sheets("sheet1") set tgt = wb.sheets("sheet2") dim url string dim symbol string tgt.columns("b:c").select selection.clearcontents src.select dim c range dim rng range set rng = range("c3:c21") each c in rng msgbox (c.address) rng = namerange nameuser = namerange 'nameuser = src.range("c3") url1 = "url;http://my001vs0253:81/user.aspx?username=" url = url1 & nameuser & "&userdomain=tp" '"url;http://my001vs0253:81/user.aspx?username=afiqg&userdomain=tp", nameuser1 = "user.aspx?username=" nameurl = nameuser1 & nameuser & "&userdomain=tp_7" 'nameurl = nameuser1 & rrng & "&userdomain=tp_7" tgt.querytables.add(connection:= _ url, destination:=tgt.range("b2")) '.commandtype = 0 .name = nameurl .fieldnames = true .rownumbers = false .filladjacentformulas = false .preserveformatting = true .refreshonfileopen = false .backgroundquery = true .refreshstyle = xlinsertdeletecells .savepassword = false .savedata = true .adjustcolumnwidth = true .refreshperiod = 0 .webselectiontype = xlspecifiedtables .webformatting = xlwebformattingnone .webtables = "22" .webpreformattedtexttocolumns = true .webconsecutivedelimitersasone = true .websingleblocktextimport = false .webdisabledaterecognition = false .webdisableredirections = false .refresh backgroundquery:=false end next end sub
hope may opinion. advance.
perhaps can first read data in src worksheet array, , use array build data in tgt worksheet. remove direct link between 2 worksheets, , possibly issue. question why need delete columns? deleting columns can provide issues 1 having now, try avoid doing so.
Comments
Post a Comment