Comment ignorer les cellules vides dans la macro

Question

à la recherche d'un peu d'aide ici. J'essaye d'obtenir ma macro pour coller les valeurs des cellules seulement avec l'information à l'intérieur d'elles à une liste. Malheureusement, ma macro tire aussi toutes les cellules vides, mais les colle comme des cellules vides. Est-ce que quelqu'un a une idée de comment faire pour que ma macro ignore complètement les cellules vides? De plus, je suis en train d'avoir cette pâte macro à C38, mais je pense que je pourrais avoir mes références foiré ..

Range("C11").Select 
Application.CutCopyMode = False 
ActiveCell.FormulaR1C1 = "3" 
Range("C12").Select 
SolverOk SetCell:="$A$20", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$26:$V$29", _ 
    Engine:=2, EngineDesc:="Simplex LP" 
SolverOk SetCell:="$A$20", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$26:$V$29", _ 
    Engine:=2, EngineDesc:="Simplex LP" 
SolverSolve UserFinish:=True 
     iMaxRow = 17 
For iCol = 3 To 21 
For iRow = 1 To iMaxRow 

With Worksheets("Summary").Cells(iRow, iCol) 
    ' Check that cell is not empty. 
    If .Value = "" Then 
     'Nothing in this cell. 
     'Do nothing. 
    Else 
     ' Copy the cell to the destination 
     Worksheets("Summary").Cells(3, 38).Value = .Value 
    End If 
End With 

Next iRow 
Next iCol 

Sheets("Summary").Select 

Answer 1

pour cette solution:

Sub tgr() 

    Dim ws As Worksheet 
    Dim rIndex As Long 
    Dim cIndex As Long 

    Set ws = Sheets("Summary") 

    Range("C11").Value = "3" 
    SolverOk SetCell:="$A$20", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$26:$V$29", _ 
      Engine:=2, EngineDesc:="Simplex LP" 
    SolverSolve UserFinish:=True 

    For cIndex = Columns("C").Column To Columns("U").Column 
     For rIndex = 1 To 17 
      If Len(Trim(ws.Cells(rIndex, cIndex).Text)) > 0 Then 
       ws.Cells(Rows.Count, "C").End(xlUp).Offset(1).Value = ws.Cells(rIndex, cIndex).Text 
      End If 
     Next rIndex 
    Next cIndex 

    ws.Select 

    Set ws = Nothing 

End Sub 

Answer 2

si vous souhaitez enregistrer tout dans la cellule (« C38 ») alors vous devriez utiliser ligne

Worksheets("Summary").Cells(3, 38).Value = Worksheets("Summary").Cells(3, 38).Value + .Value + chr(11)