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

• #18909 rtom senior tag

  Új Válasz 2013-09-05 16:20:44 #18909

  Ú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

  

  rtom

  senior tag

  Szevasztok!

  Egy makróm nem akar működni, de nem értem miért áll meg a debug a Range("B21:B" & usor). Select sornál.

  A kód:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim usor As Long
  Dim lapnev As String
  
  If Range("A2") <> Empty And Range("A4") = "OK" Then
  Range("D2").Select
  Selection.Copy
  lapnev = Range("F2")
  Sheets(lapnev).Select
  usor = ThisWorkbook.Sheets(lapnev).Range("B21:B" & Rows.Count).End(xlDown).Row + 1
  
  Range("B21:B" & usor).Select
  
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Sheets("beolvas").Select
  Range("A2").Select
  Selection.Clear
  End If
  
  End Sub

  Szerk.: a kiemelés nem látszik programkódban...

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