[ATLETICO]

Mirki, potrzebuję napisać kod VBA, który będzie mi wpisywał do kolumny np. L liczbę w zależności od liczby w kolumnie B. Tzn jeżeli w kolumnie B jest liczba z przedziału 1-15, wpisz do L liczbę 14 itp. Dzięki za pomocną dłoń ( ͡° ͜ʖ ͡°)
#excel #vba

[kaosha]

@ATLETICO: tu dobry tutorial

[1001001]

@ATLETICO: a nie prościej zwykłą formuła z JEŻELI i ORAZ?

[Polinik]

@1001001: Oczywiście, że prościej, ale polskie szkoły dają zadania z dupy, oderwane od rzeczywistości. ( ͡º ͜ʖ͡º)

[1001001]

@ATLETICO: Możesz spróbować coś takiego:

Option Explicit

Sub ProceduraDoTestu()
Dim lastrow As Integer
Dim i As Integer
Dim sht As Worksheet
Set sht = ActiveSheet
lastrow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row

For i = 1 To lastrow
If Cells(i, 2) > 0 And Cells(i, 2) < 15 Then
Cells(i, 12) = Cells(i, 2)
End If
Next i

Set sht = Nothing
End Sub

[ATLETICO]

@1001001: trochę go edytowałem, bo to 14 chodziło mi o sztywno przypisaną liczbę, czyli no gdy jest liczba 9 lub 8 lub 7, wpisuj 14, ale i tak wielkie dzięki :)

[1001001]

trochę go edytowałem

@ATLETICO: Rób jak uważasz to była tylko propozycja.