ub MemurVeriAl()

'

' Acilrkutuyaverial Makro

'



    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "Memur!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

   

End Sub

Sub SozlesmeliVeriAl()

'

' Acilrkutuyaverial Makro

'



    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "Sözlesmeli!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

End Sub



Sub İsciVeriAl()

'

' Acilrkutuyaverial Makro

'

    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "isci!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

End Sub

Sub TaseronVeriAl()

'

' Acilrkutuyaverial Makro

'

    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "Taseron!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

End Sub