Click here to Skip to main content
15,914,395 members
Home / Discussions / XML / XSL
   

XML / XSL

 
GeneralRe: XML Pin
led mike23-Sep-08 7:05
led mike23-Sep-08 7:05 
GeneralRe: XML Pin
MrMcIntyre23-Sep-08 8:10
MrMcIntyre23-Sep-08 8:10 
QuestionRe: XML Pin
George L. Jackson23-Sep-08 18:23
George L. Jackson23-Sep-08 18:23 
AnswerRe: XML Pin
AndrewMcIntyre24-Sep-08 4:31
AndrewMcIntyre24-Sep-08 4:31 
QuestionRe: XML Pin
George L. Jackson24-Sep-08 5:47
George L. Jackson24-Sep-08 5:47 
GeneralRe: XML Pin
Richard MacCutchan27-Sep-09 12:51
mveRichard MacCutchan27-Sep-09 12:51 
QuestionTranspose Pin
hardeep kanwar15-Sep-08 4:03
hardeep kanwar15-Sep-08 4:03 
AnswerRe: Transpose Pin
hardeep kanwar15-Sep-08 4:06
hardeep kanwar15-Sep-08 4:06 
Sorry For not mentioned the Macors

Sub sameoldcalvin()

'

' Macro3 Macro

'

Dim i As Long

Dim SearchRange As Range

Dim FindRow As Range

Dim pp As String



Range("G1").Select



Start:

Do

' Whole process loop counter = do it 9000 times

i = i + 1



ActiveCell.Offset(1, 0).Range("A1").Select



pp = ActiveCell.Value





Set SearchRange = Range("G:G")



Set FindRow = SearchRange.Find(pp, LookIn:=xlValues, lookat:=xlWhole)



If FindRow.Row = ActiveCell.Row Then



GoTo Start



Else



Selection.End(xlToLeft).Select

Selection.End(xlToLeft).Select

ActiveCell.Offset(0, 4).Range("A1:B1").Select

Selection.Cut

ActiveCell.Offset(-1, 0).Range("A1").Select

Selection.End(xlToRight).Select

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveSheet.Paste

ActiveCell.Offset(1, -2).Range("A1").Select



'delete

ActiveCell.Rows("1:1").EntireRow.Select

ActiveCell.Activate

Selection.Delete Shift:=xlUp

ActiveCell.Offset(-1, 3).Range("A1").Select



End If



Loop Until i = 9000

End Sub
QuestionError in get ChildNode of the current node Pin
salmonraju14-Sep-08 18:38
salmonraju14-Sep-08 18:38 
AnswerRe: Error in get ChildNode of the current node Pin
George L. Jackson23-Sep-08 18:36
George L. Jackson23-Sep-08 18:36 
QuestionXML: Special Character in- and output [modified] Pin
Zaegra11-Sep-08 6:24
Zaegra11-Sep-08 6:24 
AnswerRe: XML: Special Character in- and output Pin
Erik Westermann11-Sep-08 10:36
professionalErik Westermann11-Sep-08 10:36 
Questionxsl formating Pin
AndieDu10-Sep-08 17:25
AndieDu10-Sep-08 17:25 
AnswerRe: xsl formating Pin
led mike11-Sep-08 4:58
led mike11-Sep-08 4:58 
GeneralRe: xsl formating Pin
AndieDu11-Sep-08 21:16
AndieDu11-Sep-08 21:16 
QuestionRead XML from VB.NET [modified] Pin
japel10-Sep-08 11:57
japel10-Sep-08 11:57 
AnswerRe: Read XML from VB.NET Pin
japel11-Sep-08 2:55
japel11-Sep-08 2:55 
QuestionSending Transformed XML as mail body Pin
brijbmishra9-Sep-08 6:46
brijbmishra9-Sep-08 6:46 
QuestionRe: Sending Transformed XML as mail body Pin
led mike9-Sep-08 9:06
led mike9-Sep-08 9:06 
QuestionRe: Sending Transformed XML as mail body Pin
brijbmishra9-Sep-08 9:17
brijbmishra9-Sep-08 9:17 
AnswerRe: Sending Transformed XML as mail body Pin
led mike9-Sep-08 9:24
led mike9-Sep-08 9:24 
GeneralRe: Sending Transformed XML as mail body Pin
Chris Maunderr10-Sep-08 0:29
Chris Maunderr10-Sep-08 0:29 
Questionxsd to xml Pin
amitsunnuu9-Sep-08 2:17
amitsunnuu9-Sep-08 2:17 
QuestionValidation of attributes in combination of other attributes? Pin
mav.northwind8-Sep-08 1:48
mav.northwind8-Sep-08 1:48 
AnswerRe: Validation of attributes in combination of other attributes? Pin
Erik Westermann12-Sep-08 10:29
professionalErik Westermann12-Sep-08 10:29 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.