Değer aralığı vermeden şartlı aralık değeri oluşturmak.

[melchiah1978]

Merhaba,
Aşağıda yazdığım komutta A sütunundaki değerin sağdan 6 basamağını aldım.
Önündeki sıfır' lardan arındırmak için hepsini 1 ile çarpıp sayıya dönüştürdüm. (D21000 aralığında)

*Bu işlemi (D21000) gibi değer vererek değil de, A sütununda değer gördükçe aşağı kadar yaz demek için bir yol var mıdır?

Emeğinize sağlık, şimdiden teşekkürler iyi forumlar.

Range("D2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-3],6)"
Selection.AutoFill Destination:=Range("D21000")
Range("D21000").Select
Range("I1").Select
ActiveCell.FormulaR1C1 = "1"
Range("I1").Select
Selection.Copy
Range("D21000").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2").Select
Application.CutCopyMode = False

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Range
    Set Bak = Range("D2:D" & Cells(Rows.Count, "A").End(xlUp).Row)
    Bak.Formula = "=Right(A2,6)"
    Bak.Value = Bak.Value
End Sub

 

[melchiah1978]

Merhaba.

Sub test()
    Dim Bak As Range
    Set Bak = Range("D2:D" & Cells(Rows.Count, "A").End(xlUp).Row)
    Bak.Formula = "=Right(A2,6)"
    Bak.Value = Bak.Value
End Sub

elinize emeğinize sağlık hocam.