# Search:

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

Page 1 of 6 1

1. ## Thread: Alphanumeric string in a cell

by machopicho
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. ## Thread: export data from a cell(not the entire cell) to a word document

by machopicho
Replies
14
Views
1,212

### 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. ## Thread: export data from a cell(not the entire cell) to a word document

by machopicho
Replies
14
Views
1,212

### Re: export data from a cell(not the entire cell) to a word document

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. ## Thread: VBA Use Row Count to Copy and Insert same number of rows

by machopicho
Replies
7
Views
20,988

### 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?

by machopicho
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. ## Thread: putting data from several cells in one cell together

by machopicho
Replies
5
Views
484

### 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. ## Thread: Copy Rows from other Sheet

by machopicho
Replies
3
Views
296

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

by machopicho
Replies
6
Views
438

### 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. ## Thread: Hidden cell visible using VBA?

by machopicho
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. ## Thread: (Difficult) Code to find a specific word

by machopicho
Replies
5
Views
588

### 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

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. ## Thread: data matching using microsoft excel.

by machopicho
Replies
3
Views
243

21!
13. ## Thread: Macro for Creating List

by machopicho
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. ## Thread: Copy Rows from other Sheet

by machopicho
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. ## Thread: Certain parts of code to clear cells is not working

by machopicho
Replies
5
Views
297

### 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. ## Thread: Matching Color in two Columns excel 2007

by machopicho
Replies
6
Views
302

### 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. ## Thread: Matching Color in two Columns excel 2007

by machopicho
Replies
6
Views
302

### 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. ## Thread: Matching Color in two Columns excel 2007

by machopicho
Replies
6
Views
302

### 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. ## Thread: copy/paste in VBA

by machopicho
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. ## Thread: I need a function on this

by machopicho
Replies
1
Views
282

### Re: I need a function on this

Explaine better with a clear example
21. ## Thread: Simple copy and Paste in VBA

by machopicho
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. ## Thread: Sorry I know is 101 but need 2 functions

by machopicho
Replies
2
Views
306

### 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. ## Thread: Copy cell color to another cell

by machopicho
Replies
3
Views
283

24. ## Thread: First Date in Column

by machopicho
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. ## Thread: Deleting #DIV/0! error

by machopicho
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