run time error 13 VBA [ditutup]

-3

Saya seorang pemula di vba dan saya trieing untuk menjalankan kode. Saya menjalankan error waktu 13 - ketik ketidakcocokan '

Kode tersebut adalah sebagai berikut:

Sub Range_Copy_Examples()
Worksheets("Luni").Range("A1:A800").Value = Worksheets("Rout").Range("A1:A800").Value
Worksheets("Luni").Range("B1:B800").Value = Worksheets("Rout").Range("B1:B800").Value
Worksheets("Luni").Range("C1:C800").Value = Worksheets("Rout").Range("C1:C800").Value
Worksheets("Luni").Range("D1:D800").Value = Worksheets("Rout").Range("D1:D800").Value
Worksheets("Luni").Range("E1:E800").Value = Worksheets("Rout").Range("E1:E800").Value
Worksheets("Luni").Range("F1:F800").Value = Worksheets("Rout").Range("F1:F800").Value
Worksheets("Luni").Range("G1:G800").Value = Worksheets("Rout").Range("G1:G800").Value
Worksheets("Luni").Range("H1:H800").Value = Worksheets("Rout").Range("H1:H800").Value
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("A1:A800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("A1:A800").PasteSpecial Paste:=xlPasteFormats
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("B1:B800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("B1:B800").PasteSpecial Paste:=xlPasteFormats
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("C1:C800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("C1:C800").PasteSpecial Paste:=xlPasteFormats
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("D1:D800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("D1:D800").PasteSpecial Paste:=xlPasteFormats
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("E1:E800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("E1:E800").PasteSpecial Paste:=xlPasteFormats
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("F1:F800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("F1:F800").PasteSpecial Paste:=xlPasteFormats
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("G1:G800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("G1:G800").PasteSpecial Paste:=xlPasteFormats
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Rout").Range("H1:H800").Copy
Workbooks("Plan livrari 2018 Landscape - final.xlsm").Worksheets("Luni").Range("H1:H800").PasteSpecial Paste:=xlPasteFormats
End sub

   If Target = Range("F4") Then
        If ActiveSheet.Range("F4").Value <> "" Then
            ActiveSheet.Shapes("CheckBox2").Visible = True
        Else
            ActiveSheet.Shapes("CheckBox2").Visible = False
        End If
    End If

    If Target = Range("F5") Then
        If ActiveSheet.Range("F5").Value <> "" Then
            ActiveSheet.Shapes("CheckBox2").Visible = True
        Else
            ActiveSheet.Shapes("CheckBox2").Visible = False
        End If
    End If

      If Target = Range("F6") Then
        If ActiveSheet.Range("F6").Value <> "" Then
            ActiveSheet.Shapes("CheckBox3").Visible = True
        Else
            ActiveSheet.Shapes("CheckBox3").Visible = False
        End If
End sub

Saya menjalankan galat waktu 13 - ketik mismatch dan debug hilight thr berikut:

If Target = Range("F4") Then

microsoft-excel

— Adina
sumber

coba debug kode Anda dan selidiki lebih banyak informasi tentang kesalahan, kami tidak dapat melakukannya untuk Anda. Setelah Anda berbagi lebih banyak informasi (setidaknya baris yang memberikan kesalahan, berapa nilai variabel yang relevan, apa yang seharusnya terjadi ..) kami dapat membantu Anda.

— Máté Juhász

juga If Target = Range("F4") Thenkeluar dari apa pun subyang tidak diizinkan dalam VBA, Targettampaknya tidak memiliki nilai. Pengkodean tidak hanya menyatukan cuplikan kode ... :(

— Máté Juhász

Mungkin saja solusinya sesederhana yang pertama End Subtidak boleh ada. Entah itu, atau contoh kode Anda tidak lengkap.

— Bill Hileman

Targettidak dideklarasikan di mana pun dalam kode yang Anda posting (itu mungkin variabel yang dideklarasikan secara global), dan Anda mungkin belum Option Explicitmengaktifkannya. Mengaktifkan Option Explicitadalah ide yang baik secara umum dan itu akan membuang kesalahan untuk variabel yang tidak dideklarasikan sebelum berjalan.

Kesalahan ini karena Range()mengembalikan objek Range, dan Targetmungkin bukan tipe data Objectmaupun Range.

Anda mungkin menempelkan ini dari contoh yang dinyatakan Targetsebagai argumen dalam Subdeklarasi.

Jika semua ini tidak masuk akal, Anda perlu membaca.

— Yorik
sumber

Apa yang Anda tulis itu benar, tetapi mungkin tidak akan cukup bagi OP untuk menyelesaikan masalah. Solusinya adalah belajar pemrograman.

— Máté Juhász

Saya tidak berpikir itu pembenaran untuk downvoting.

— Bill Hileman

@ MátéJuhász: Itulah satu-satunya maksud di balik kalimat terakhir saya, jadi kami setuju.

— Yorik