Új hozzászólás Aktív témák

• #34142 poffsoft veterán szőröscica #34140

  Új Válasz 2017-02-10 20:22:08 #34142

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz szőröscica #34140 üzenetére

  Option Explicit
Public Sub makro1()
Dim i As Integer
Dim l As Integer
Dim RowCount As Integer
Dim S1 As String
Dim S2 As String

RowCount = 10
S1 = "Submitter excl. trades"
S2 = "Trading activity_NEW"

Worksheets(S1).Select
For i = 3 To RowCount
If Not IsEmpty(Range("D" & i)) Then
l = Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & l) = Range("J" & i)
Range("I" & l) = Sheets(S2).Range("D" & i)
End If
Next i
End Sub

Új hozzászólás Aktív témák