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

Katılım
14 Şubat 2012
Mesajlar
11
Excel Vers. ve Dili
excell 2007 - Türkçe
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. (D2:D1000 aralığında)

*Bu işlemi (D2:D1000) 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("D2:D1000")
Range("D2:D1000").Select
Range("I1").Select
ActiveCell.FormulaR1C1 = "1"
Range("I1").Select
Selection.Copy
Range("D2:D1000").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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,703
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Kod:
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
 
Üst