Fungsim dan Rumus Button SIMPAN

  1. 5 bulan yang lalu

    Mohon bantuannya semua...
    Yang ingin saya tanyakan, pada Button SIMPAN pada saat klik Button SIMPAN ada warning "Block If without End If". apa ada coding yang salah atau kurang, mohon pencerahannya, serta tolong berikan coding fixnya.
    File saya lampirkan.

  2. Hallo Mas @arief180885

    silahkan perbaiki (ganti) beberapa baris kode berikut:

    ---> ganti x1Up menjadi xLUp
    pada baris kode :
    Kolom = lembar.Cells(Rows.Count, 1) _
    .End(x1Up).Offset(1, 0).Row

    ---> ganti x1Formulas menjadi xLformulas
    pada baris kode :
    Set C = .Find(Data, LookIn:=x1Formulas

    --> ganti A3|A45 menjadi A3:A45
    pada baris kode :
    With Worksheets("Data Perusahaan").Range("A3|A45")

    Untuk logika IF, saya ganti variabel newRow dengan Kolom

    If Me.cbSURATAKTA.Value = True Then
    lembar.Cells(Kolom, 15) = "Yes"
    ElseIf lembar.Cells(Kolom, 15) = "No" Then
    
    ElseIf Me.cbSKDEPKUM.Value = True Then
    lembar.Cells(Kolom, 16) = "Yes"
    ElseIf lembar.Cells(Kolom, 16) = "No" Then
    
    ElseIf Me.cbPAKTAPENDIRIAN.Value = True Then
    lembar.Cells(Kolom, 17) = "Yes"
    Else
    lembar.Cells(Kolom, 17) = "No"
    Exit Sub
    End If

    Semoga sesuai dengan yang diharapkan
    salam

  3. Terima kasih banyak masukkan dan codinya mas...saya coba dulu mas.

 

atau Mendaftar untuk ikut berdiskusi!