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

• #28819 Delila_1 veterán Kobe #28817

  Új Válasz 2015-09-29 17:05:37 #28819

  Ú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

  

  Delila_1

  veterán

  válasz Kobe #28817 üzenetére

  Címsort feltételezve

  Sub Keplet()
  Dim usor As Long
  
  usor = Range("A" & Rows.Count).End(xlUp).Row
  Range("B2") = Range("A2")
  Range("B3:B" & usor) = "=IF(LEFT(A3,2)=""E1"",B2,A3)"
  End Sub

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