Posts by etheer

etheer · Mar 1st 2014

I Need Help Me FiX Code Copy And Paste Work Automatically

Code

[/COLOR]Private Sub Worksheet_Calculate()    Dim c As Range    Application.EnableEvents = False         If Not Intersect(Target, Me.Columns(1)) Is Nothing Then                 If Target.Value > 1000 Then                         Me.Cells(Target.Row, Me.Columns.Count).End(xlToLeft).Offset(0, 1).Value = Target.Value        End If    End If     ws_exit:    Application.EnableEvents = TrueEnd Sub[COLOR=#333333]

[/COLOR]

etheer · Aug 15th 2013

Re: I Need Edit Code Export Sheet Excel To Mysql

i need export this file excel to database mysql

etheer · Aug 14th 2013

Re: I Need Edit Code Export Sheet Excel To Mysql

how edit code insert new taple

etheer · Aug 12th 2013

Hi
I Need Help Edit Code Vba Export Taple Excel To Database Mysql

Code

Sub InsertIntoMySQL()
  Dim height As Long
  Dim rowtable As Long
  Dim strSQL As String
  ' How to add the ADO object:
  ' Tools > References > Microsoft ActiveX Data Objects 2.8 Library
  Dim oConn As ADODB.Connection
  Dim rs As ADODB.Recordset
  
  On Error GoTo ErrHandler
  Set rs = New ADODB.Recordset
  Set oConn = New ADODB.Connection
  ' http://www.connectionstrings.com/mysql-connector-odbc-5-1/
  ' ODBC Drivers: http://dev.mysql.com/downloads/connector/odbc/
  oConn.Open "DRIVER={MySQL ODBC 5.2 ANSI Driver};" & _
    "SERVER=localhost;" & _
    "DATABASE=etheer;" & _
    "USER=root;" & _
    "PASSWORD=1234;" & _
    "Option=3"




  'number of rows with records
  height = Worksheets("M1").UsedRange.Rows.Count
  height = 3




'insert data into SQL table
  With Worksheets("M1")
    For rowtable = 2 To height
        strSQL = "INSERT INTO M1 (A,B,C) " & _
          "VALUES ('" & esc(Trim(.Cells(rowtable, 1).Value)) & "', '" & _
          esc(Trim(.Cells(rowtable, 2).Value)) & "', '" & _
          esc(Trim(.Cells(rowtable, 3).Value)) & "')"
          'rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
          'http://stackoverflow.com/questions/2821917/connecting-to-mysql-from-excel-odbc-driver-does-not-support-the-requested-prope
          oConn.Execute strSQL
    Next rowtable
  End With
  MsgBox "Insert with success " & Trim(Str(rowtable - 2)) & " records", _
    vbInformation, "Verification Data Entry"
    
ErrHandler:
  If Err.Description <> "" And Err.Source <> "" Then
    MsgBox Err.Description, vbCritical, Err.Source
  End If
End Sub




'remove dangerous characters
Function esc(txt As String)
  esc = Trim(Replace(txt, "'", "\'"))
End Function

Display More

How edit code insert column A To column AJ
cell 1 to 164

etheer · Jun 13th 2013

Re: VBA code to copy and paste

Hi
I edit code

Code

Sheets("ACCOUNT").Range("K7:K180,L7:L180,AI7:AI180,AJ7:AJ180,AK7:AK180,AL7:AL180,AM7:AM180,AN7:AN180,AO7:AO180").ClearContents
Sheets("ACCOUNT2").Range("J7:J184,K7:K184,L7:L184,M7:M184,N7:N184,O7:O184,P7:P184,Q7:Q184,R7:R184,S7:S184,T7:T184").ClearContents
Sheets("Account3").Range("D4").Copy Sheets("Account3").Range("B4")

Working code but i need past value

etheer · Jun 13th 2013

Hi
I have vba code clean cells i need edit code clean cells and copy and past
THis code

Code

Sub clean()
Sheets("ACCOUNT").Range("K7:K180,L7:L180,AI7:AI180,AJ7:AJ180,AK7:AK180,AL7:AL180,AM7:AM180,AN7:AN180,AO7:AO180").ClearContents
Sheets("ACCOUNT2").Range("J7:J184,K7:K184,L7:L184,M7:M184,N7:N184,O7:O184,P7:P184,Q7:Q184,R7:R184,S7:S184,T7:T184").ClearContents
End Sub

I need copy cell D4 and past in cell B4

Name sheet ACCOUNT3

etheer · Mar 16th 2013

Re: I Need Help Vba Code Automatically Sort Rows

I have this code work very good skip rows
i need it also sort rows lagre to small by data in column D

Private Sub Hide_Unhide()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For i = 7 To 2400
Rows(i).Hidden = (Cells(i, "G").Value = 0) + (Cells(i, "B").Value = "")
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Please help me

etheer · Mar 16th 2013

Hi
I Need Help Vba Code Automatically Sort Rows Large To Small By Data In Column D

etheer · Feb 1st 2013

Re: VBA to Clear Cells

i need vba code delete cells in K and L when change cell j to yes

etheer · Feb 1st 2013

Re: I Need Code Clear Cells

Please help me

etheer · Feb 1st 2013

Hello
I Need Code Delete Yes And Number From Cells In Column L And K When Change Cell J7 To Yes

etheer · Jan 3rd 2013

Re: Automatically copy and paste column

Thank you code work 100%

etheer · Jan 3rd 2013

Re: Automatically copy and paste column

Please, edit book1 i need when open excel automatically work the code every three seconds copy and paste column A to column B

etheer · Jan 3rd 2013

Re: Automatically copy and paste column

Thank you truntem
Not work code automatically every three seconds

etheer · Jan 3rd 2013

Re: Automatically copy and paste column

Thank you truntem
please i need paste values

etheer · Jan 3rd 2013

Hi

I need code automatically copy and paste column A to column B every very three seconds

etheer · Dec 4th 2012

Re: Automatically change cell value based on other cell value

Hi Mumps
Why only code works when the show sheet if hidden or do not show it the code does not work

Code

Private Sub Worksheet_Calculate() 
    ActiveSheet.Unprotect Password:="1234567" 
    Dim c As Range 
    Application.EnableEvents = False 
    On Error Resume Next 
    For Each c In Range("J7:J" & Cells(Rows.Count, "J").End(xlUp).Row) 
        If c = "Yes" Then 
            c.Offset(, 1).Value = "Yes" 
            Application.Speech.Speak ("Yes") 
            If c.Offset(, 2) = "" Then 
                c.Offset(, 2).Value = c.Offset(, -6).Value 
                c.Offset(, 24).Value = c.Offset(, -8).Value 
                c.Offset(, 25).Value = c.Offset(, -7).Value 
                c.Offset(, 26).Value = c.Offset(, -6).Value 
                c.Offset(, 27).Value = c.Offset(, -6).Formula 
                c.Offset(, 28).Value = c.Offset(, 39).Formula 
                c.Offset(, 29).Value = c.Offset(, 1).Value 
                c.Offset(, 30).Value = c.Offset(, 38).Value 
            End If 
        End If 
    Next c 
    Application.EnableEvents = True 
    ActiveSheet.Protect Password:="1234567" 
End Sub

Display More

etheer · Dec 2nd 2012

Re: vba code to view sheet by username and password

Yes I want to learn
Thanks for the reply

etheer · Dec 1st 2012

Re: vba code to view sheet by username and password

Hi royuk
you can help me and edit my file book1d i need username : etheer password :1234
i hope you help me

etheer · Dec 1st 2012

Re: Automatically change cell value based on other cell value

Thank you Mumps
You really professional