Latihan Contact Load

  1. 2 bulan yang lalu

    salam sejahtera para master
    saya mau menanyakan, ada salah dimana ya untuk script terlampir dalam attachment
    niat nya, jika kita select di setiap cell di list ada maka isi cell tersebut tampil pada info yang di atasnya
    mohon bantuan untuk penjelasannya

    @Badawa

    @Badawa @Djodie , terima kasih pak sudah bisa.
    mohon penjelasannya untuk script yang saya lampirkan di awal, kenapa tidak bisa ya?

    karna dicoding sebelumnya tidak mengambil data dan mengalokasikan ke dalam suatu cell. dengan kata lain tidak ada input dan outputnya

    myRow = ActiveCell.Row '# ini untuk mendapatkan row number
    
    '# semua dibawah ini untuk mengambil data dan meletakkannya di suatu cell
    '@contoh kasus:
    '@kita select cell E13,Jadi row yg dipilih(MyRow) adalah 13. Dan untuk outputnya ('Contact name') adalah di Cell E5 . jika dalam coding menjadi : 
    Range("E5") = Range("D" & myRow) 'Contact Name : dimana myrow disini adalah 13
    '@jadi artinya, isi dari cell E5 sama dengan cell D13 .
    
    Range("E5") = Range("D" & myRow) 'Contact Name
    Range("H5") = Range("E" & myRow) 'City
    Range("E7") = Range("F" & myRow) 'City
    Range("H7") = Range("G" & myRow) 'State
    Range("H9") = Range("H" & myRow) 'Email
    Range("E9") = Range("I" & myRow) 'Phone

  2. file nya

  3. Klo gini gimana ?

    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D13:J9999")) Is Nothing And Range("D" & Target.Row).Value <> Empty Then
    Dim myRow, ClearMe
    myRow = ActiveCell.Row
    Range("B2").Value = Target.Row
           
    Range("E5") = Range("D" & myRow) 'Contact Name
    Range("H5") = Range("E" & myRow) 'City
    Range("E7") = Range("F" & myRow) 'City
    Range("H7") = Range("G" & myRow) 'State
    Range("H9") = Range("H" & myRow) 'Email
    Range("E9") = Range("I" & myRow) 'Phone
        'Contact_Load
    End If
    End Sub
    

  4. @Djodie , terima kasih pak sudah bisa.
    mohon penjelasannya untuk script yang saya lampirkan di awal, kenapa tidak bisa ya?

  5. Djodie

    Peb 11 Jawaban Terpilih + 64 Poin

    @Badawa

    @Badawa @Djodie , terima kasih pak sudah bisa.
    mohon penjelasannya untuk script yang saya lampirkan di awal, kenapa tidak bisa ya?

    karna dicoding sebelumnya tidak mengambil data dan mengalokasikan ke dalam suatu cell. dengan kata lain tidak ada input dan outputnya

    myRow = ActiveCell.Row '# ini untuk mendapatkan row number
    
    '# semua dibawah ini untuk mengambil data dan meletakkannya di suatu cell
    '@contoh kasus:
    '@kita select cell E13,Jadi row yg dipilih(MyRow) adalah 13. Dan untuk outputnya ('Contact name') adalah di Cell E5 . jika dalam coding menjadi : 
    Range("E5") = Range("D" & myRow) 'Contact Name : dimana myrow disini adalah 13
    '@jadi artinya, isi dari cell E5 sama dengan cell D13 .
    
    Range("E5") = Range("D" & myRow) 'Contact Name
    Range("H5") = Range("E" & myRow) 'City
    Range("E7") = Range("F" & myRow) 'City
    Range("H7") = Range("G" & myRow) 'State
    Range("H9") = Range("H" & myRow) 'Email
    Range("E9") = Range("I" & myRow) 'Phone

  6. terima kasih buat penjelasanya master @Djodie

  7. mas @Djodie
    mau nanya lagi untuk file yang sama
    jika codingnya sbb

    Sub Contact_Load()
    With Sheet1
    If Range("B2").Value = Empty Then Exit Sub
    .Range("B4").Value = True 'merubah Contact Load menjadi True
    ContactRow = .Range("B2").Value 'Contact Baris
    For ContactCol = 4 To 10
    .Range(.Cells(11, ContactCol).Value).Value = Cells(ContactRow, ContactCol).Value
    Next ContactCol
    On Error Resume Next
    .Shapes("ThumbPic").Delete 'menghapus gambar thumbnail jika ada
    On Error GoTo 0
    'If .Range("M4").Value <> Empty Then Cont_DisplayThumb
    .Range("B3").Value = False
    .Shapes("ExistContactGrup").Visible = msoCTrue
    .Shapes("NewContactGrup").Visible = msoFalse
    .Range("B4").Value = False 'merubah Contact load menjadi False
    End With
    End Sub

    karena dalam file tersebut ada 2 modul dan modul dengan script diatas ini apa masih perlu digunakan untuk menampilakan data?

  8. dah ketemu jawabannya kenapa script ini ga bisa

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D13:J9999")) Is Nothing And Range("D" & Target.Row).Value <> Empty Then
    Dim myRow, ClearMe
    myRow = ActiveCell.Row
    Range("B2").Value = Target.Row
    'contact_load

    karena ('contact_load) masih jadi komen, jika kutip nya di hilangkan baru bisa menjalankan sub Contact_load...

    btw thx @Djodie telah memberikan alternatif script dan pejelasannya

 

atau Mendaftar untuk ikut berdiskusi!