Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: ram567
  • Order by date
  1. ram567

    split row

    Thank you.
  2. ram567

    split row

    hI! I am tryin to do colum c ( 1 to nth row) split and put it in column M coudl you check it what is wrong in this one. thanks in advance Sub test() Dim strTest As String Dim arrTest As Variant Dim strColC As String, strColM As String, RW as integer strTest = [C1] arrTest = Split(strTest, ",")...
  3. ram567

    excel split separator

    xlbo thank yu very much the above code do i have to put it in module
  4. ram567

    excel split separator

    I have column c have text which contain , for example xxx24,yyyyyyyyy,abcde,mnopqrst,lmn12,abc13 i need to sepearate column c xxxx24, abcde,lmn12,abc13 column m yyyyyyyyy,mnopqrst before "," if it is <= 5 words put it in column c else column m is it possible could you provide the code
  5. ram567

    new record

    Hi1 could any body help in this one it is great help for me i have form in that date when i createnew record it shows automaticaly date today in my machine but it is in share drive, it does not show anyhitng in date in other machine. how to fix this one
  6. ram567

    holiday day count

    HI the below code has monday to friday i would like to add holiday code also skip already given the below could you help me where i have to add 'If today is Monday,then check Fridays data else check yesterday's data. If strDayStamp="Mon" Then...
  7. ram567

    select case statement

    Skip thanks a lot. Too much spinning my head. you relived it so much.
  8. ram567

    select case statement

    Skie it stopped here If UCase(Sess.Screen.GetString(24, 1, 9)) = "LAST PAGE" Then Exit Do it is not last page it is END- OF -LIST AND I CHANGED GETSTRING (24,1,11) NOW IT WORKS FINE THANKS A LOT
  9. ram567

    select case statement

    SKIP IT IS KEEP ON GOING. NEVER END
  10. ram567

    select case statement

    Skip it workes fine but it does not write the last page THE BELOW CODE I TRIED THIS ONE Loop Until Ucase(Sess.Screen.GetString(24, 1, 11)) = "END OF LIST" AND Loop WHILE Ucase(Sess.Screen.GetString(24, 1, 11)) <> "END OF LIST" I TRIED BOTH CODES. BUT STILL THE LAST PAGE I HAVE SOME . IT IS...
  11. ram567

    select case statement

    Skip it is working now. thank you so much.
  12. ram567

    select case statement

    Skip i thing it is not problem with select case the coding problem coudl you see that what is the problem it actualy it happens if it is DEMO IN THAT PAGE IT DOES NOT WRITE AFTER DEMO THAT WHOLE PAGE IS NOT WRITING IN EXCEL Declare Sub Wait(Sess As Object) Sub Main() Dim Sys As Object...
  13. ram567

    select case statement

    Skip thanks for your help this one still writing the below one. though it has in case . it should not be. "kkkkkkkk", "DEMO"
  14. ram567

    select case statement

    could you help me the below one what i am trying to do if the account- id <> 20.xxxx, yyyy it will write into excel what happens here the below code it shows including 20, xxxx,yyyy and journla id kkkkkk, demo Select case Account_id case "20", "xxxxx", "yyyyy"...
  15. ram567

    syntax error

    thank you skip, it is valued information for me it helps lot.
  16. ram567

    syntax error

    Thank you so much skie
  17. ram567

    syntax error

    winblow thanks for your help but the below code i have problem part no <> "xxxxxx" then if i put it what happens that page after xxxxxx not write into excel just now i noticed. could you help me Do For i = 6 To 23 account = Trim(Sess.Screen.GetString(i, 11, 5))...
  18. ram567

    syntax error

    Hi! what is the syntax error the below if account_id <> "xxxx" and <> "yyyyy" <> "zzzzz" then msg box
  19. ram567

    if syntax

    Winblow thanks for your help if the key_mask has more than in row exceed autofit, is it posssible it itwll come adjust next row automatically key_mask = Trim(Sess.Screen.GetString(9, 3, 100)) + Trim(Sess.Screen.GetString(10, 3, 100))
  20. ram567

    change the sheet name

    thanks! yes the same thing i did it but it is not changing sheet 1 as accounts

Part and Inventory Search

Back
Top