Sub Duzenle kodunu aşağıdaki ile değiştirerek deneyiniz.

Sub Duzenle()



If Box_GiderislemTuru.Column(1) = "2" Then



    Me.Box_SubeAdi.Top = 1920

    Me.Aciklama.Top = 2345

    Me.GiderMiktar.Top = 2765

    Etiket4.Top = 1920

    Etiket7.Top = 2345

    Etiket8.Top = 2765

    Box_Gider_Firma.Visible = True

    Box_Banka_Adi.Visible = False

    Me.Box_SubeAdi.Visible = True

ElseIf Box_GiderislemTuru.Column(1) = "0" Then



    Me.Box_SubeAdi.Top = 1920

    Me.Aciklama.Top = 2345

    Me.GiderMiktar.Top = 2765

    Etiket4.Top = 1920

    Etiket7.Top = 2345

    Etiket8.Top = 2765

    Box_Gider_Firma.Visible = True

    Box_Banka_Adi.Visible = True

    Me.Box_SubeAdi.Visible = False

  

Else



    Me.Box_SubeAdi.Top = 1560

    Me.Aciklama.Top = 1985

    Me.GiderMiktar.Top = 2405

    Etiket4.Top = 1560

    Etiket7.Top = 1985

    Etiket8.Top = 2405

    Box_Gider_Firma.Visible = False

    Box_Banka_Adi.Visible = False

    Me.Box_SubeAdi.Visible = True

     

End If





End Sub