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

• #4107 sztanozs veterán Parameter #4105

  Új Válasz 2013-02-14 14:38:16 #4107

  Ú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

  

  sztanozs

  veterán

  válasz Parameter #4105 üzenetére

  Mondjuk ennek semmi köze nincs a C#-hoz...

  Public Sub TestLogout()
  Dim c As Range
  For Each c In Sheet1.UsedRange.Columns(2).Cells
  If c.Value = "OUT" Then
  Set c = c.EntireRow
  Set Row = FindRelativeRow(c)
  If Row Is Nothing Then
  c.Columns(6).Value = "No Entries Found"
  Else
  c.Columns(6).Value = Row.Columns(1)
  End If
  End If
  Next
  End Sub
  
  Private Function FindRelativeRow(currentRow As Range) As Range
  For r = currentRow.Row + 1 To Sheet1.UsedRange.Rows.Count
  If Sheet1.UsedRange.Cells(r, 2).Value = "IN" Then
  If Sheet1.UsedRange.Cells(r, 3).Value = currentRow.Columns(3) And _
  Sheet1.UsedRange.Cells(r, 4).Value = currentRow.Columns(4) And _
  Sheet1.UsedRange.Cells(r, 5).Value = currentRow.Columns(5) Then
  Set FindRelativeRow = Sheet1.UsedRange.Rows(r)
  Exit Function
  End If
  End If
  Next
  Set FindRelativeRow = Nothing
  End Function

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