Merubah alamat cell

  1. minggu lalu

    Dear master,......
    Mohon dapat dibantu, dimana saya mau merubah alamat script sbb;

    Dim sh As Worksheet, Vol As Range, sel As Range, x As Range
    Dim lrow As Long
    Set x = Application.InputBox("Tentukan Titik VOL", Type:=8)

    On Error Resume Next
    For Each sh In ActiveWorkbook.Worksheets
    If sh.Name <> "MASTER" And sh.Name <> "SUM" Then
    lrow = sh.Cells(sh.Rows.Count, x.Column).End(xlUp).Row
    Set Vol = sh.Range(sh.Cells(x.Row, x.Column), sh.Cells(lrow, x.Column))
    Application.ScreenUpdating = False
    For Each sel In Vol
    If IsNumeric(sel) And sel > 0 And sel.Offset(0, 2) = "" Then
    sh.Cells(sel.Row, 1) = "BSMED"
    sh.Cells(sel.Row, 2) = "=A" & sel.Row & "&F" & sel.Row & ""
    sh.Cells(sel.Row, 4) = "1"
    sh.Cells(sel.Row, 6) = "100"
    sh.Cells(sel.Row, 13) = "=VLOOKUP(B" & sel.Row & ",MASTER,13,0)*D" & sel.Row & ""

    sh.Cells(sel.Row, 14) = "=K" & sel.Row & "*M" & sel.Row & ""

    End If
    Next sel
    Application.ScreenUpdating = True
    End If
    Next sh

    yang mau dirubah sbb;
    sh.Cells(sel.Row, 13), dimana alamat 13 tersebut mau diambil dari nilai "x.Column" ditambah 2 column didepannya mas....
    Contoh nya " column tersebut adalah A, berarti perubahannya menjadi column C.

    gimana yah cara merubahnya...

    terima kasih

  2. manweljs_

    Sep 14 Terverifikasi + 5.020 Poin

    @nafis2006 ...dimana alamat 13 tersebut mau diambil dari nilai "x.Column" ditambah 2 column ...

    ya dirubah aja menjadi :

    ...
    sh.Cells(sel.Row, x.column + 2)
    ...

  3. Terima kasih mas @manweljs_ ....
    atas bantuannya sudah bisa.....
    maaf mau nambah pertanyaan lagi mas..... untuk merubah
    script yang ini ...

    sh.Cells(sel.Row, 14) = "=K" & sel.Row & "*M" & sel.Row & ""

    menjadi.

    sh.Cells(sel.Row, x.column + 3) = perkalian " (sel.Row, x.column + 2)" dan " (sel.Row, x.column + 3)"

    harus gimana yah merubahnya...

    sekali lagi terima kasih atas bantuannya

  4. manweljs_

    Sep 14 Terverifikasi + 5.020 Poin
    Di sunting minggu lalu oleh manweljs_

    @nafis2006

    kalau masih disheet yang sama, coba langsung aja dikalikan :

    ...
    sh.Cells(sel.Row, x.column + 3) = sh.cells(sel.Row, x.column + 2)*sh.cells(sel.Row, x.column + 3)
    ...


    btw itu kolomnya gak salah kah? kok sama2 x.column + 3

  5. Mohon maaf mas @manweljs_

    masih gak mau muncul di column "sh.Cells(sel.Row, x.column + 3) " tersebut.......

    kalau script tersebut menjadi perkalian angka value biasa yah mas......

    bisa berupa rumus seperti perkalian cell, contoh "=K1*I1"

    terima kasih

  6. mohon.... maaf mas @manweljs_
    saya salah alamat....

    harusnya perkalian "x.column + 2" dan "x.column"

    saja.....
    sekali lagi salah data...saya

  7. mas @manweljs_

    saya coba merubah script seperti ini

    sh.Cells(sel.Row, x.Column + 3) = "=" & sh.Cells(sel.Row, x.Column + 2) & "*" & sh.Cells(sel.Row, x.Column)

    agar menjadi rumus mas....

    tetapi ngk muncul hasilnya...

    makasih mas

  8. manweljs_

    Sep 14 Terverifikasi + 5.020 Poin

    @nafis2006

    kalau mau hasilnya berupa formula, coba :

    sh.Cells(sel.row, x.Column + 3) = "=" & Sh.Cells(sel.row, x.column + 2).Address(0, 0) & "*" & sh.Cells(sel.row, x.Column).Address(0, 0)

  9. 7 hari yang lalu

    terima kasih banyak suhu mas @manweljs_ ....
    script nya berhasil berfungsi......

    semoga sukses dan ilmu nya bertambah terus.......

    amien

 

atau Mendaftar untuk ikut berdiskusi!