Posts by marreco

marreco · Sep 23rd 2016

Re: How transfer data from textboxes to listview

Hi KjBox , thank you very much!!

marreco · Sep 22nd 2016

Hi.

I need type data in Texbox and send to Listview, after click on button and save data into sheet.

Cross-Post
http://www.excelforum.com/exce…extboxes-to-listview.html

Thank you!!

marreco · Feb 10th 2015

Re: Save cell Value to another Cell if the pointed Cell Value Changed

Try.

Code

Private Sub Worksheet_Change(ByVal Target As Range)    
If Intersect(Target, Range("F9,M11")) Is Nothing Then Exit Sub
    Range("F11").Value = Range("F12").Value
End Sub

marreco · Aug 22nd 2014

Re: Clear column after find match another sheet

hi, i solved my question with....
http://www.ozgrid.com/forum/showthread.php?t=183816

thank you!!

marreco · Aug 21st 2014

Hi
My tab ("dados"), has 21 columns, i need clear only column "L"

Code

Sub CompareRemoveDupes()     ' Stanley D. Grom, 04/06/2012
     ' [URL]http://www.ozgrid.com/forum/showthread.php?t=164160[/URL]
    Dim wP As Worksheet, wN As Worksheet
    Dim r As Long, lr As Long, fr As Long
    Application.ScreenUpdating = False
    Set wP = Worksheets("Plan1")
    Set wN = Worksheets("dados")
    lr = wN.Cells(Rows.Count, 1).End(xlUp).Row
    With wN.Range("A5:A" & lr)
        .Value = .Value
    End With
    For r = lr To 1 Step -1
        fr = 0
        On Error Resume Next
        fr = Application.Match(wN.Cells(r, 1), wP.Columns(1), 0)
        On Error GoTo 0
        If fr > 0 Then wN.Rows(r).ClearContents 'I need clear only column "L"
    Next r
    lr = wN.Cells(Rows.Count, 1).End(xlUp).Row
    wN.Range("A5:A" & lr).Sort key1:=Range("A1"), order1:=1
    wN.Activate
    Application.ScreenUpdating = True
End Sub

Display More

Thanks

marreco · Jul 30th 2014

Re: Lloop with sequence within the loop

Hi jindon, i am very happy, excellent!!:thumbcoo:

Thank you very much!!!!

marreco · Jul 30th 2014

Re: Lloop with sequence within the loop

sorry, i can't explain, becouse my bad english!

i cannot think in something....:hammerhe:

marreco · Jul 30th 2014

Re: Lloop with sequence within the loop

I need insert number case name is finded (Cleiton -> 44, 43, 42, 41, 40), but first time this name is found (Cleiton) right cell is = 44, when find Cleiton again righ cell is = 43, and so...:thanx:

marreco · Jul 30th 2014

Re: Lloop with sequence within the loop

Hi.
maybe my reasoning is not correct.

My idea was that inside the loop was established these criteria.

but consider the table below.

every time we find a particular name will follow the sequence
[TABLE="class: grid, width: 184"]

[tr]

[td]

When find name

[/td]

[td]

Insert cell

[/td]

[/tr]

[tr]

[td]

1º Insert cell

[/td]

[td]

44

[/td]

[/tr]

[tr]

[td]

2º Insert cell

[/td]

[td]

43

[/td]

[/tr]

[tr]

[td]

3º Insert cell

[/td]

[td]

42

[/td]

[/tr]

[tr]

[td]

4º Insert cell

[/td]

[td]

41

[/td]

[/tr]

[tr]

[td]

5º Insert cell

[/td]

[td]

40

[/td]

[/tr]

[tr]

[td]

1º Julierica

[/td]

[td]

39

[/td]

[/tr]

[tr]

[td]

2º Julierica

[/td]

[td]

38

[/td]

[/tr]

[tr]

[td]

3º Julierica

[/td]

[td]

37

[/td]

[/tr]

[tr]

[td]

4º Julierica

[/td]

[td]

36

[/td]

[/tr]

[tr]

[td]

5º Julierica

[/td]

[td]

35

[/td]

[/tr]

[tr]

[td]

1º Sheyla

[/td]

[td]

34

[/td]

[/tr]

[tr]

[td]

2º Sheyla

[/td]

[td]

33

[/td]

[/tr]

[tr]

[td]

3º Sheyla

[/td]

[td]

32

[/td]

[/tr]

[tr]

[td]

4º Sheyla

[/td]

[td]

31

[/td]

[/tr]

[tr]

[td]

1º M.Helena

[/td]

[td]

30

[/td]

[/tr]

[tr]

[td]

2º M.Helena

[/td]

[td]

29

[/td]

[/tr]

[tr]

[td]

3º M.Helena

[/td]

[td]

28

[/td]

[/tr]

[tr]

[td]

4º M.Helena

[/td]

[td]

27

[/td]

[/tr]

[/TABLE]

marreco · Jul 30th 2014

Re: Lloop with sequence within the loop

Hi. jindon
Look my file, please!

Thank you!!!

marreco · Jul 30th 2014

Re: Lloop with sequence within the loop

Sorry, i not explein well.

I have names in column D, if find first Cleiton (any cell in column D) than (in adjacent cell in column E), result = 44.
if find second Cleiton (any cell in column D) than (in adjacent cell in column E), result = 43. <-After first match
if find third Cleiton (any cell in column D) than (in adjacent cell in column E), result = 42. <-After second match
if find fourth Cleiton (any cell in column D) than (in adjacent cell in column E), result = 41. <-After third match
if find fifth Cleiton (any cell in column D) than (in adjacent cell in column E), result = 40. <-After fourth match

And son.

marreco · Jul 29th 2014

Hi
I'm trying to create a loop where to find each name is entered, a value in the adjacent cell
[TABLE="width: 256"]

[tr]

[TD="class: xl65, width: 64"]Cleiton[/TD]
[TD="class: xl65, width: 64"]Julierica[/TD]
[TD="class: xl65, width: 64"]Sheyla[/TD]
[TD="class: xl65, width: 64"]M.Helena[/TD]

[/tr]

[tr]

[TD="align: right"]44[/TD]
[TD="align: right"]39[/TD]
[TD="align: right"]34[/TD]
[TD="align: right"]30[/TD]

[/tr]

[tr]

[TD="align: right"]43[/TD]
[TD="align: right"]38[/TD]
[TD="align: right"]33[/TD]
[TD="align: right"]29[/TD]

[/tr]

[tr]

[TD="align: right"]42[/TD]
[TD="align: right"]37[/TD]
[TD="align: right"]32[/TD]
[TD="align: right"]28[/TD]

[/tr]

[tr]

[TD="align: right"]41[/TD]
[TD="align: right"]36[/TD]
[TD="align: right"]31[/TD]
[TD="align: right"]27[/TD]

[/tr]

[tr]

[TD="align: right"]40[/TD]
[TD="align: right"]35[/TD]

[td][/td]

[/tr]

[/TABLE]
Result
[TABLE="width: 108"]

[tr]

[td]

Repositor

[/td]

[td]

Mach

[/td]

[/tr]

[tr]

[td]

Cleiton

[/td]

[TD="align: right"]44[/TD]

[/tr]

[tr]

[td]

Julierica

[/td]

[TD="align: right"]39[/TD]

[/tr]

[tr]

[td]

Sheyla

[/td]

[TD="align: right"]34[/TD]

[/tr]

[tr]

[td]

M.Helena

[/td]

[TD="align: right"]30[/TD]

[/tr]

[tr]

[td]

Cleiton

[/td]

[TD="align: right"]43[/TD]

[/tr]

[tr]

[td]

Julierica

[/td]

[TD="align: right"]38[/TD]

[/tr]

[tr]

[td]

Sheyla

[/td]

[TD="align: right"]33[/TD]

[/tr]

[tr]

[td]

M.Helena

[/td]

[TD="align: right"]29[/TD]

[/tr]

[tr]

[td]

Cleiton

[/td]

[TD="align: right"]42[/TD]

[/tr]

[tr]

[td]

Julierica

[/td]

[TD="align: right"]37[/TD]

[/tr]

[tr]

[td]

Sheyla

[/td]

[TD="align: right"]32[/TD]

[/tr]

[tr]

[td]

M.Helena

[/td]

[TD="align: right"]28[/TD]

[/tr]

[tr]

[td]

Cleiton

[/td]

[TD="align: right"]41[/TD]

[/tr]

[tr]

[td]

Julierica

[/td]

[TD="align: right"]36[/TD]

[/tr]

[tr]

[td]

Sheyla

[/td]

[TD="align: right"]31[/TD]

[/tr]

[tr]

[td]

Cleiton

[/td]

[TD="align: right"]40[/TD]

[/tr]

[tr]

[td]

M.Helena

[/td]

[TD="align: right"]27[/TD]

[/tr]

[tr]

[td]

Julierica

[/td]

[TD="align: right"]35[/TD]

[/tr]

[tr]

[td]

Sheyla

[/td]

[TD="align: right"]34[/TD]

[/tr]

[tr]

[td]

M.Helena

[/td]

[TD="align: right"]30[/TD]

[/tr]

[tr]

[td]

Cleiton

[/td]

[TD="align: right"]44[/TD]

[/tr]

[tr]

[td]

Julierica

[/td]

[TD="align: right"]39[/TD]

[/tr]

[tr]

[td]

Sheyla

[/td]

[TD="align: right"]33[/TD]

[/tr]

[tr]

[td]

M.Helena

[/td]

[TD="align: right"]29[/TD]

[/tr]

[/TABLE]

Code

Sub SecuenceLoops()Dim iCell As Range
    For Each iCell In ActiveSheet.Range("D2:D433")
        With iCell
            If iCell.Offset(, 1) = "Cleiton" Then
                '44,43,42,41,40
            ElseIf iCell.Offset(, 1) = "Julierica" Then
                '39,38,37,36,35
            ElseIf iCell.Offset(, 1) = "Sheyla" Then
                '34,33,32,31
            ElseIf iCell.Offset(, 1) = "M.Helena" Then
                '30,29,28,27
            Else
                Exit Sub
            End If
        End With
    Next iCell
End Sub

Display More

Thank you!!

marreco · Jul 28th 2014

Re: Fill automatic textbox when combobox select any value

Hi. jindon, it's work great!

Thank very much!!

marreco · Jul 27th 2014

Re: Fill automatic textbox when combobox select any value

Hi.
look
https://www.sendspace.com/file/k6tha9
Or see attachment

marreco · Jul 27th 2014

Hi.
I have sheet "MySheet" with data in range A1:B200, when i change or select value in combobox, my textbox will fill.
But i need return respective rows in column A inside textbox.

I try it, but nothing happaning!

Code

Private Sub ComboBox_Change()    On Error Resume Next
    TextBoxCod.Value = WorksheetFunction.Index(Range(MyRange"), ComboBox.Value, 1)
End Sub

marreco · Jul 27th 2014

Re: Run Macro after count files in folder

Hi Very good!!!

Thanks very much!!!

marreco · Jul 27th 2014

Hi.
How run macro after count number of files (equal 5 files) in folder?

Code

Option Compare TextOption Explicit
'http://www.vbaexpress.com/kb/getarticle.php?kb_id=238
Function CountFiles(Directory As String) As Double
     'Function purpose:  To count all files in a directory
    Dim fso As Object, _
    objFiles As Object
     
     'Create objects to get a count of files in the directory
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set objFiles = fso.GetFolder(Directory).Files
    If Err.Number <> 0 Then
        CountFiles = 0
    Else
        CountFiles = objFiles.Count
    End If
    On Error GoTo 0
End Function

Display More

Code

Sub TestCount()
'http://www.vbaexpress.com/kb/getarticle.php?kb_id=238
     'To demonstrate the use of the CountFiles function
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.folderexists(Selection)=5 Then 'If i have 5 files then run macro
        MsgBox "Tem " & CountFiles(Selection) & " arquivos em " & Selection, _
        vbOKOnly + vbInformation, CountFiles(Selection) & " Arquivos!"
    Else
        MsgBox "Diretório não encontrado:  " & vbCrLf & Selection _
        & vbCrLf & "Selecione uma célula valida" & vbCrLf & _
        "em que contém o nome da pasta !", vbOKOnly + vbCritical, "Error!"
    End If
     
End Sub

Display More

marreco · Jul 25th 2014

Re: insert formula into traffic lights (conditional formatting)

ok, thank you very much!!

marreco · Jul 25th 2014

Re: insert formula into traffic lights (conditional formatting)

sorry, i can't explain, becouse my bad english!
I need to provide for each value in range (B2: M2), only way is to use percent.
how include percent via formula inside (conditional formatting of traffic lights)? meybe you doens't understand me...
ex:
50.000 is 93% from 54.000

marreco · Jul 25th 2014

Re: insert formula into traffic lights (conditional formatting)

yes! in my file, i need apply (B2:M2), i know value. if >= 100.000 (value) then green, case 90.000 to 99.999 then yellow else red.

Posts by marreco

transfer data from textboxes to listview

transfer data from textboxes to listview

Save cell Value to another Cell if the pointed Cell Value Changed

Clear column after find match another sheet

Clear column after find match another sheet

Loop with sequence within the loop

Loop with sequence within the loop

Loop with sequence within the loop

Loop with sequence within the loop

Loop with sequence within the loop

Loop with sequence within the loop

Loop with sequence within the loop

Fill automatic textbox when combobox select any value

Fill automatic textbox when combobox select any value

Fill automatic textbox when combobox select any value

Run Macro after count files in folder

Run Macro after count files in folder

insert formula into traffic lights (conditional formatting)

insert formula into traffic lights (conditional formatting)

insert formula into traffic lights (conditional formatting)