Makro ile Yeni Sütun Ekleyip Dropdown Liste Olusturma

[Lucky1905]

Merhaba Arkadaslar,

2 gün önce bir baslik acmistim ama orda sorunumu tam anlamiyla anlatamadim sanirim ve simdi ne istedigimide ben daha iyi anladim

Simdi ben makro yardimiyla ile kendim belirledigim bir yere yeni sütun eklemek istiyorum.
Bu ekledigimi sütunun ilk hücresinede kendi dolduracagim bir dropdown liste olusturmak istiyorum.

Simdi söyle kisaca anlatirsam, bi tane tus olsa. Ben bu tusa bassam, sütunu eklemek istedigim yeri girsem ve dropdown listede olmasini istedigim seyleri yazsam ve onayladiktan sonra.
Bu sütun eklenip ilk hücresindede benim belirledigim dropdown olussa.

Mümkünmüdür acaba bu?

Yada önerebileceginiz baska bi fikir varmi bunu yapabilmem icin.

Simdiden tesekkürler ve iyi geceler.

 

[ExcelF1]

"MAKRO KAYDET" yöntemini bir araştırınız derim. Yardımı dokunacaktır.

 

[Lucky1905]

ExcelF1 Tesekkürler inceleyecegim.

Bu konuda baska fikri olan yok mu acaba?

 

[Lucky1905]

Kendim biseyler yaptim belki beraber gelistirebiliriz

Simdi burasi comboxu eklemek icin.

Sub ComboInsert()
Dim combo As Object
Set combo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=Range("B6").Left, Top:=Range("B6").Top, Width:=120, Height:=25.5)
End Sub

Burasi comboxun icini doldurmak

Sub AddItem()
With ActiveSheet.ComboBox1
        .Clear
        .AddItem ("This")
        .AddItem ("Is")
        .AddItem ("A")
        .AddItem ("Test")
        .ListIndex = 1
    End With

End Sub

burasida sütun eklemek icinmis ama bu direk ilk siraya ekliyor ben benim belirledigim bi yere eklemek istiyorum.

Sub addcolumns()
    Dim uRng As Range
    Dim lCols As Long
    Dim i As Long
     
    Set uRng = ActiveSheet.UsedRange
    lCols = uRng.Columns.Count
     ' turn off calculation and screenupdating to speed up the macro.
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
         
         ' work backwards
        For i = lCols To 1 Step -1
            Columns(i).EntireColumn.Insert
        Next i
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
     
End Sub

Simdi bunlarin hepsini bi yerde felan kullanip biseyler harmanlamam lazim benim

Excelde bi tus olcak, ona basinca bitane ekran gelecek ve oraya ben sütunu eklemek istedigim yeri ve comboboxun objelerini girebilcem.

Onayladiktan sonra sütun eklenecek ve ilk hücresinde benim olusturdugum liste oluscak.

fikir verirseniz nasil yapabilecegim konusunda sevinirim.