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 SkipVought 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: *

  1. bernardng

    Sending Error 0x800CCC0F, SMTP Service Restart in order to work.

    Mail are not able to send out. Task 'Bernard Email - Sending' reported error (0x800CCC0F) : 'The connection to the server was interrupted. If this problem continues, contact your server administrator or Internet service provider (ISP).' This is my Outlook Settings. Incomimg Mail (POP3)...
  2. bernardng

    Lock Cells with Specify Range If Cells contains value

    Dim CurrentCell As String If WorksheetFunction.CountA(Range("A2:D16")) = 0 Then Else Range("D1").End(xlDown).Select CurrentCell = Range(ActiveCell.Address).Address CurrentCell = ActiveCell.CurrentRegion.Address Bernard say: 'CurrentCell( = Range("A1:E3")) - this range I...
  3. bernardng

    Lock Cells with Specify Range If Cells contains value

    Hi, I have data in Range("A2:D3")inside Range("A2:D16"), when button is pressed this range should be locked. and Range("A4:D16") should unlock. Everytime update button is pressed, the program should check Range("A2:D16"), and count which rows contain data, if row 1 & 2 contain data it should...
  4. bernardng

    How to set up WSS extranet access?

    Thomas, Windows SharePoint Services Service Pack 2 Support for advanced extranet configurations, show at below; (stsadm.exe –o addalternatedomain –url http://sharepoint:1234 –urlzone default –incomingurl http://sharepoint.internal.adatum.com:1234) Some stupid question, can above method allow...
  5. bernardng

    How to set up WSS extranet access?

    Currently my sharepoint server is running on MS Window 2003 Standard Edition, with WSS + WMSDE. My sharepoint site work fine on locally(Intranet). I wonder how do we set WSS to access via extranet? Do we need ISA Server 2004? or SPS 2003? We have Fortigate Firewall Installed behind this server...
  6. bernardng

    Find 2 Match Words Then Cut Selected data to..

    Thanks for Ur reply, but honestly I do seach for it, But i do not understand of it and dont know how use Loop Method to apply at Find Method that u mentioned, If you do so,please help me! Thanks a lot!
  7. bernardng

    Find 2 Match Words Then Cut Selected data to..

    I need to write a coding to identified the specified row is stated Completed or Not Completed, If Completed the selected row will cut and paste to Completed Task (Next Sheet), Not Completed will move down to bottom. I have wrote a coding with using FIND method to searching the Completed word...
  8. bernardng

    Cut selected data frm sheet1 paste to sheet2??

    Below code shown me the error message. ".Cells(lNextRow, 1).PasteSpecial xlPasteAll" Run-time error '1004' PasteSpecial method of Range class failed ------------------------------------------------------- However I have replace with SkipVought method (let me know if you have the best one), see...
  9. bernardng

    Cut selected data frm sheet1 paste to sheet2??

    Dim myCount1 As Integer Set myRange1 = Range("$A$13:$E$13") myCount1 = Application.Count(myRange1) If CheckBox1.Value = False Then If myCount1 <> 0 Then Range("$A$13:$E$13").Select Range("$A$13:$E$13").Cut NextRow = Range("A65536").End(xlUp).Row + 1...
  10. bernardng

    Cut selected data frm sheet1 paste to sheet2??

    If CheckBox1.Value = False Then If myCount1 <> 0 Then Range("$A$13:$E$13").Select Range("$A$13:$E$13").Cut NextRow = Range("A65536").End(xlUp).Row + 1 Range("A" & NextRow).Select ActiveSheet.Paste End If Else If myCount1 <> 0 Then...
  11. bernardng

    Cut selected data frm sheet1 paste to sheet2??

    Yes I love it, Is Work! You are really Expert In VBA. Below is my coding (but still have some doubt, see below) If CheckBox1.Value = False Then If myCount1 <> 0 Then Range("$A$13:$E$13").Select Range("$A$13:$E$13").Cut NextRow = Range("A65536").End(xlUp).Row + 1...
  12. bernardng

    Cut selected data frm sheet1 paste to sheet2??

    In Sheet1, I have data in A2:F2, follow by G2 have checkbox1 (using Control ToolBox VBA),similiar data in A3:F3 and G3 have another checkbox2. A4:F4 and G4 have another checkbox3 Example, If checkbox1 box is untick, the Range("A2:F2") is Select and Cut to A14:F14 (First Row) If checkbox2...

Part and Inventory Search

Back
Top