Click here to Skip to main content
15,867,870 members

Comments by archies_gall (Top 39 by date)

archies_gall 16-Aug-14 1:31am View    
Any help on this?
archies_gall 13-Aug-14 13:54pm View    
This is what i have done. The code works only for 1st value but i guess some for loop issue because of which it is not working for other values. Code is:

Sub findvalue()
Dim a As String
Dim b As String
Dim someSheet As Worksheet
Dim i As Integer
Dim cell As Range

a = ActiveCell.Value


Dim LastRow As Long
With ActiveWorkbook.Sheets("Sheet2")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow

For i = 2 To LastRow


b = Sheet2.Range("A" & i).Value

If a = b Then

Set someSheet = ActiveWorkbook.Sheets("Sheet2")
someSheet.Activate

ActiveWorkbook.Sheets("Sheet2").Activate

someSheet.Range("A" & i).Select

End If
Exit For

Next i

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then

findvalue
End If
End Sub
archies_gall 14-Feb-14 13:50pm View    
Issue i dont know... i am not getting any output only.
and sorry but i dont know how to debug javascript code :(

and also,what else I can use instead of ActiveXObject so that it is supported by other browsers too?
archies_gall 14-Feb-14 13:33pm View    
i tried below code:

<script language="javascript">

var fso,txt;
fso=new ActiveXObject("Scripting.FileSystemObject");
txt=fso.OpenTextFile("Test1.txt",1);
function table_maker(txt){
var rows=txt.split(','), r, cells, c, j, i=0;
var table='<table>';
while(r=rows[i++]){
table+='<tr>';
cells=r.split(',');
j=0;
while(c=cells[j++]){
table+=('<td>'+c+'</td>');
}
table+='</tr>';
}
table+='</table>';
return table;
document.getElementById("T1").innerHTML=table;
}
</script>

<body önLoad="table_maker()">
archies_gall 14-Feb-14 12:11pm View    
Thank you :)