Search:

Type: Posts; User: westconn1

Page 1 of 13 1 2 3 4

Search: Search took 1.48 seconds.

  1. Thread: Monitor

    by westconn1
    Replies
    15
    Views
    812

    Re: Monitor

    on previous testing, the line that is failing is a method in an activex, to set the orientation of the printer
    i tried several workarounds using the printer object and other things that came to mind...
  2. Re: [RESOLVED] "Reset" a With/End With structure?

    you could also use a second with block within the first


    Set ws = ActiveSheet
    With ws
    ' stuff
    Set newsht = Sheets.Add
    With newsht
    .Name = "my new sheet"
    ' other...
  3. Re: How to generate an alphanumeric tree changes with criteria?

    you can test like

    Dim cel As Range, sfirst As String, cnt3 As Integer, cnt4 As Integer
    sfirst = "ABCD.01.01."
    cnt3 = 0
    For Each cel In Range("c:c") ' i just looped column till first empty...
  4. Re: "Reset" a With/End With structure?

    the for line is only executed once on entering the loop, so changing lnglastrow will have no effect during the loop, whereas changing lngrow wold affect the output, if it is changed to a value >...
  5. Replies
    13
    Views
    542

    Re: save as comma delimited csv file

    if you can post a sample of the text file that is saved and make a matching sample csv as desired, to compare, someone may be able to do the conversion, for you

    but running the project or...
  6. Replies
    13
    Views
    542

    Re: save as comma delimited csv file

    the above codes only save the content of the textbox to file, i very much doubt anyone here can help without knowing exactly what the content of the textbox would be, like where commas have to be...
  7. Re: Copy & Paste if condition met with add & subtract

    have you tried doing any of this yourself?
    in these forums wee try to help people with code they are having problems with, we are not a free code writing service
    you have had several examples of...
  8. Re: If column C has blank cell then delete that entire row in two files(macro correct

    that was not specified anywhere i saw in the thread, i only answered the question in this thread about empty sheet or no data, i presumed the existing code (do your other stuff) must do whatever else...
  9. Re: Cut & paste the data to new sheet if condition matches

    i must have missed the last line when i copy and pasted, after the last end if
  10. Re: If column C has blank cell then delete that entire row in two files(macro correct

    just add refference to the worksheet object

    Set wb = Workbooks.Open(Stear)
    Set ws = wb.Worksheets(1)
    ' test this first
    If IsEmpty(ws.UsedRange) Or...
  11. Re: Cut & paste the data to new sheet if condition matches

    you can test this to see if it does what you require
    Dim wb As Workbook, output As Worksheet, rng As Range, rw As Long
    Set wb = Workbooks("1.xls") ' if already open
    ' OR
    Set wb =...
  12. Replies
    2
    Views
    183

    Re: Close.xls file by a macro

    if the macro will be in the workbook you want to close

    thisworkbook.close, false ' true if you want to save it
    if that is the only workbook open and you want to close excel as well, add
    ...
  13. Re: If column C has blank cell then delete that entire row in two files(macro correct

    you can test for empty sheet

    if not isempty(ActiveSheet.UsedRange) then

    to test if a range is blank (empty)

    If WorksheetFunction.CountBlank (columns("c")) = columns("c").cells.count then...
  14. Re: [RESOLVED] Excel VBA - Format date regardless Windows regional settings

    you could try

    d2 = CDate("10" & "/" & "12" & "/" & "2020")but it may be affected by regional settings, dateserial wold be better
  15. Re: [RESOLVED] Excel VBA - Format date regardless Windows regional settings

    try like

    msgbox format(dateserial(2020, 12, 10), "dd.mm.yyyy") ' 10th december
    i might have your month and day mixed up
    date serial is unambiguous and returns a date value, not a string

    d1...
  16. Replies
    5
    Views
    351

    Re: ActiveX control "DiskControls"

    look in the references to see if any are missing
  17. Re: Remove Stubborn Watermark from Word Document

    you can test this to see if it does as you require

    Dim s As Shape, h as HeaderFooter
    Set h = ThisDocument.Sections(1).Headers(wdHeaderFooterPrimary)
    For Each s In h.Shapes
    If s.Type =...
  18. Re: Excel VBA - Auto find and fill blank cells with random yes or no

    i tested this to work ok

    Dim i As Long
    Randomize
    With Sheets(1)
    Last_row = .Range("a1").End(xlDown).row
    For i = 2 To Last_row
    If .Cells(i, 1).Value = "" Then
    ...
  19. Re: Simple adding and subtracting of Cell Values

    i can not see anything obvious
    you have values in all the cells that are summed?

    can you post a sample workbook (zip first) that demonstrates the issue
  20. Re: Want to Validate Code for placing 253 columns in alternate manner from diff. shee

    you have not specified which part is giving incorrect results, i am guessing, because the cells (below) is not fully qualified, the sheet selection may not be fully complete before the cells line...
  21. Replies
    5
    Views
    381

    Re: VBA to VB6

    try

    With Sheets("Charts").ChartObjects("chart 8").chart
  22. Replies
    5
    Views
    381

    Re: VBA to VB6

    it should work like

    Set ch = Sheets("activity").ChartObjects("chart 8")
    With ch
    .SeriesCollection(1).XValues = "=Activity!R5C2:R" & intLastRow & "C2"
    .SeriesCollection(1).Values =...
  23. Replies
    3
    Views
    311

    Re: Excel PrintQuality Property Fails

    changing some printer settings, commonly duplex, requires the use of APIs as excel provides no support for setting duplex, i also struck an issue with orientation, that had cropped up recently
  24. Re: Need help with clicking Submit button using WebBrowser control

    now the ie has apparently been depreciated, the webbrowser control may get no further updates and web scraping more difficult
  25. Replies
    1
    Views
    169

    Re: Printer Problem

    there are many threads about turning on or off duplex printing in this forum, i have had several goes at making this work, but sometimes it will then no stops working for whatever reason

    see...
  26. Replies
    2
    Views
    206

    MsOf13 Re: Deleting certain rows using VBA

    you would need to autofilter twice, once for blue and once for black
  27. MsOf365 Re: [Excel] Worksheet_Change and Worksheet_BeforeDoubleClick are freeze

    normally i would use debug, then fix the cause of the error
  28. Replies
    3
    Views
    311

    Re: Excel PrintQuality Property Fails

    i have struck other issues with printer settings that only seem to occur on windows 10
  29. Re: PowerPoint - Informing other application that VBA macro is finished

    there are probably several solutions to this

    i would look at moving the code to create the deck to vba macro, just pass parameters to how many decks and other information to the macro, call the...
  30. Re: Help! WebBrowser control cannot display webpage

    i believe all versions of vb.net have a free to download and use version, probably just get the latest, i did have a go with 2015, i found it struggle, but many thousands of others are using it
    i...
  31. Re: Help! WebBrowser control cannot display webpage

    plenty threads here with link to service pack 6, but vb6 is not a free download, you may need to try to purchase a used copy from somewhere, no longer available from microsoft
  32. Re: Help! WebBrowser control cannot display webpage

    there is a firefox control, but it is old, not secure, no longer updated and didn't work too good when it was current

    the latest version of internet explorer that can run on xp will not load many...
  33. Re: Help! WebBrowser control cannot display webpage

    there are many sights that can no longer be accessed with xp internet explorer browser
    you may be forced to update, like it or not
  34. MsOf365 Re: [Excel VBA] Search a list for Max alphabetic

    this custom function should do as you want, uses excel find method, it does contain a loop, but lees than 1000 iterations, seems to be quick enough
    if a max possible value is known then the loop can...
  35. Re: Record real time data along with time stamp

    you could use application.ontime to run code every five minutes, but an API timer would probably be better


    sub myupdate()
    set logsht = sheets("logsheet") 'change both sheet names to suit...
  36. Replies
    11
    Views
    536

    Re: sqlite: Database seems to be corrupted

    bad management?
  37. Re: Reading and writing to excel file using ExcelWS.cells(I,j)

    the actual code might help more
  38. Re: [RESOLVED] Merge specific Column from multiple workbook into one work book

    the code i posted should do that, what is actually happening?
  39. Re: [RESOLVED] Merge specific Column from multiple workbook into one work book

    you did not explain what needed to be fixed, as far as i could see with a brief look the code should do as requested
  40. Re: [RESOLVED] Merge specific Column from multiple workbook into one work book

    Sub Mersge()

    Dim strFileName As String
    Dim strFilesLike As String
    Dim strPathName As String
    Dim strCurrentFile As String

    strPathName = "C:\temp\sample\Sample\"
    Set tgt =...
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Click Here to Expand Forum to Full Width