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)...
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...
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...
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...
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...
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!
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...
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...
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...
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...
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...
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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.