Click here to Skip to main content
15,922,015 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionTrying to set caret at correct offset: CLOSED Pin
mo149228-Feb-19 7:58
mo149228-Feb-19 7:58 
QuestionSystem.Data.OLEDB, my OLEDB connection stopped working in Win10 X64 Pin
jkirkerx26-Feb-19 7:47
professionaljkirkerx26-Feb-19 7:47 
AnswerTried some more things Pin
jkirkerx26-Feb-19 8:27
professionaljkirkerx26-Feb-19 8:27 
AnswerRe: System.Data.OLEDB, my OLEDB connection stopped working in Win10 X64 Pin
Maciej Los26-Feb-19 8:46
mveMaciej Los26-Feb-19 8:46 
QuestionMessage Closed Pin
11-Feb-19 1:03
manju 311-Feb-19 1:03 
AnswerRe: How can i make sure UDF Add-in to work on different machine Pin
Dave Kreskowiak11-Feb-19 3:07
mveDave Kreskowiak11-Feb-19 3:07 
GeneralRe: How can i make sure UDF Add-in to work on different machine Pin
manju 311-Feb-19 6:21
manju 311-Feb-19 6:21 
QuestionSplit cells with comma and space Pin
manju 34-Feb-19 21:34
manju 34-Feb-19 21:34 
Hi Team,

I am trying to split the cells if comma and space .
I tried below code.Its spliting for space now.

How can i change it so that it will check for multiple(both space and comma)
Dim splitvals As Variant
Dim totalVals As Long

Set sh1 = ThisWorkbook.Sheets(1)
Set sh2 = ThisWorkbook.Sheets(2)

sh2.Cells.Clear
lrow1 = sh1.Range("A65356").End(xlUp).Row

For j = 2 To lrow1
    splitvals = Split(sh1.Cells(j, 2), " ")    
    For i = LBound(splitvals) To UBound(splitvals)
        lrow2 = sh2.Range("B65356").End(xlUp).Row
        lrow3 = sh2.Range("A65356").End(xlUp).Row
        sh2.Cells(lrow3 + 1, 1) = sh1.Cells(j, 1)
        sh2.Cells(lrow3 + 1, 2) = splitvals(i)
    Next i   
     
    
Next j


Even i tried:
splitvals = Split(sh1.Cells(j, 2), ", " " ") 


Please suggest me .

Thanks
Manju
QuestionRe: Split cells with comma and space Pin
Richard MacCutchan4-Feb-19 22:11
mveRichard MacCutchan4-Feb-19 22:11 
AnswerRe: Split cells with comma and space Pin
manju 34-Feb-19 23:47
manju 34-Feb-19 23:47 
GeneralRe: Split cells with comma and space Pin
Richard MacCutchan4-Feb-19 23:56
mveRichard MacCutchan4-Feb-19 23:56 
GeneralRe: Split cells with comma and space Pin
Richard Deeming5-Feb-19 1:17
mveRichard Deeming5-Feb-19 1:17 
AnswerRe: Split cells with comma and space Pin
Maciej Los5-Feb-19 1:41
mveMaciej Los5-Feb-19 1:41 
Questiondatagridview that was bound to dataset Pin
ClintSoft4-Feb-19 15:38
ClintSoft4-Feb-19 15:38 
QuestionLoad xlsx filr from folder and write to new workbook Pin
manju 33-Feb-19 20:25
manju 33-Feb-19 20:25 
QuestionRe: Load xlsx filr from folder and write to new workbook Pin
Richard MacCutchan3-Feb-19 22:23
mveRichard MacCutchan3-Feb-19 22:23 
AnswerRe: Load xlsx filr from folder and write to new workbook Pin
manju 34-Feb-19 21:39
manju 34-Feb-19 21:39 
GeneralRe: Load xlsx filr from folder and write to new workbook Pin
Richard MacCutchan4-Feb-19 22:00
mveRichard MacCutchan4-Feb-19 22:00 
GeneralRe: Load xlsx filr from folder and write to new workbook Pin
manju 34-Feb-19 23:49
manju 34-Feb-19 23:49 
QuestionMacro Substitution en VB.Net Pin
Member 141390043-Feb-19 17:00
Member 141390043-Feb-19 17:00 
AnswerRe: Macro Substitution en VB.Net Pin
Eddy Vluggen3-Feb-19 22:45
professionalEddy Vluggen3-Feb-19 22:45 
GeneralRe: Macro Substitution en VB.Net Pin
Member 141390049-Feb-19 13:24
Member 141390049-Feb-19 13:24 
GeneralRe: Macro Substitution en VB.Net Pin
Member 141390043-Mar-19 6:18
Member 141390043-Mar-19 6:18 
GeneralRe: Macro Substitution en VB.Net Pin
Eddy Vluggen3-Mar-19 6:28
professionalEddy Vluggen3-Mar-19 6:28 
AnswerRe: Macro Substitution en VB.Net Pin
Maciej Los5-Feb-19 2:38
mveMaciej Los5-Feb-19 2:38 

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.