Search:

Type: Posts; User: machopicho; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.03 seconds.

  1. Replies
    1
    Views
    88

    Alphanumeric string in a cell

    Hi there,
    i have this problem to solve.
    In cells i have variable alphanumeric strig as:
    A1 vbnxm1234
    A2 ehfk567
    A3 tugfoejrti1597536
    and so on.
    I must extrac string of numbers with a...
  2. Re: export data from a cell(not the entire cell) to a word document

    Sadi, you'll tell me if my code works...
    :-)
    Bye
  3. Re: export data from a cell(not the entire cell) to a word document

    Hello sadi... how are you?
    Where di you live? :-)
    Try:

    Sub Esporta_Dati_in_Word()
    Application.ScreenUpdating = False
    Dim Wrd As Word.Application
    Dim Doc As Word.Document
    Dim ReplSel As...
  4. Re: VBA Use Row Count to Copy and Insert same number of rows

    Where has sheet 1 data?
    Column A names and column B numbers?
  5. Replies
    6
    Views
    253

    Re: Date formula

    On cell--> click right button -->in Number choose Personalized --> choose dd/mm/yyyy and in type write dd-mm-yyyy. Press ok!
    Bye
  6. Re: putting data from several cells in one cell together

    Sub test()
    n = Range("A" & Rows.Count).End(xlUp).Row
    For r = 2 To n
    For rr = r + 1 To n
    If Range("A" & rr) = Range("A" & r) Then
    Range("B" & r) = Range("B" & r) & "#" & Range("B" & rr)...
  7. Replies
    3
    Views
    296

    Re: Copy Rows from other Sheet

    Nothing! :-)
  8. Re: Using VBA, select from activecell to a certain value below?

    Try this:

    Sub Macro1()
    n = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
    For r = ActiveCell.Row To n
    If Cells(r, ActiveCell.Column) = "Total" Then
    Range(ActiveCell, Cells(r,...
  9. Replies
    2
    Views
    334

    Re: Hidden cell visible using VBA?

    Try:

    Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cll In Range("A1:D10")
    If cll <> "" Then
    Rows(ActiveCell.Row + 1).EntireRow.Hidden = False
    End If
    Next
    End SubThis code...
  10. Re: (Difficult) Code to find a specific word

    Here an code of example but doesn't work fine:

    Sub Macro3()
    r = 1
    rw = r + 1
    For rrw = 1 To 1500
    If Cells(rrw, "D") <> 0 Then
    n = n + 1
    End If
    Next
  11. Thread: vba

    by machopicho
    Replies
    1
    Views
    236

    Re: vba

    www.cpearson.com
    www.rondebruin.nl
    http://remigueudelot.free.fr/PHP/VBAit.php?categoria=codice
    http://vbatips.com/
    http://j-walk.com
  12. Replies
    3
    Views
    243

    Re: data matching using microsoft excel.

    21!
  13. Replies
    4
    Views
    261

    Re: Macro for Creating List

    Something like this?

    Sub test()
    n = InputBox("How voices do you want to create?")
    For r = 1 To n * 2 Step 2
    nr = nr + 1
    Cells(r, "A").Formula = "=[SR" & nr & "D.xlsx]SR!NU1"
    Cells(r + 1, "A")...
  14. Replies
    3
    Views
    296

    Re: Copy Rows from other Sheet

    Try:

    Private Sub Worksheet_Activate()
    '
    Sheets("Grouped Register").Rows("6:220").Copy Destination:=Sheets("Numerical Register").Range("A6")
    Application.CutCopyMode = False...
  15. Re: Certain parts of code to clear cells is not working

    Private Sub CommandButton1_Click()
    Sheets(1).Range("B5:C34").ClearContents
    Sheets(1).Range("E10, E12, E14, E16").ClearContents
    Sheets(1).Range("B5").Select ...
  16. Re: Matching Color in two Columns excel 2007

    To me work!

    Sub Macro1()
    n = Range("A" & Rows.Count).End(xlUp).Row
    nr = Range("B" & Rows.Count).End(xlUp).Row
    For r = 1 To n
    For rw = 1 To nr
    If Range("A" & r).Interior.ColorIndex =...
  17. Re: Matching Color in two Columns excel 2007

    This?


    Sub Macro1() n = Range("A" & Rows.Count).End(xlUp).Row
    nr = Range("B" & Rows.Count).End(xlUp).Row
    For r = 1 To n
    For rw = 1 to nr
    If Range("A" & r).Interior.ColorIndex = Range("B" &...
  18. Re: Matching Color in two Columns excel 2007

    Something like this?

    Sub Macro1()
    n = Range("A" & Rows.Count).End(xlUp).Row
    For r = 1 To n
    If Range("A" & r).Interior.ColorIndex = Range("B" & r).Interior.ColorIndex Then
    Range("B" & r).Copy...
  19. Replies
    1
    Views
    326

    Re: copy/paste in VBA

    Something like this?
    To copy graph:

    Sub Macro1()

    ActiveSheet.ChartObjects("Grafico 1").Activate
    ActiveChart.ChartArea.Copy
    Sheets("Foglio2").Select
    ActiveSheet.Paste
    End Sub
  20. Replies
    1
    Views
    282

    Re: I need a function on this

    Explaine better with a clear example
  21. Replies
    2
    Views
    325

    Re: Simple copy and Paste in VBA

    Sub simple_copy()
    If Range("F2") = "1" Then Range("D1") = Range("F1")
    Range("F1").ClearContents
    End If
    End Sub
  22. Re: Sorry I know is 101 but need 2 functions

    1) =SUMPRODUCT(--(B:B="Smith"); --(C:C="Customer"))

    2) =SUM(--(YEAR(F:F)=2011)) or
    =SUM(--(YEAR(F:F)=YEAR(TODAY()))) insert with CTRL + SHIFT + ENTER both
  23. Replies
    3
    Views
    283

    Re: Copy cell color to another cell

    Which address?
  24. Replies
    2
    Views
    284

    Re: First Date in Column

    Something like this?

    Sub Macro()
    'For column A
    n = Range("A" & Rows.Count).End(xlUp).Row
    For r = 1 To n
    If Cells(r, "A").Locked = False And _
    Cells(r, "A").NumberFormat = "m/d/yyyy"...
  25. Replies
    7
    Views
    279

    Re: Deleting #DIV/0! error

    Try this:

    Sub test()
    If IsError(Range("A1").Value) Then
    errval = Range("A1").Value
    Select Case errval
    Case CVErr(xlErrDiv0)
    Range("A1").ClearContents
    End Select...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4