kriter için hücre değeri seçtirmek

[memetcirak]

 Range("A2").Select
    Selection.Copy
    Sheets("SEVK").Select
    ActiveSheet.ListObjects("Table__10.5.11.100_LV3BLT_VLBL_REPORT_OTO_ORDER"). _
        Range.AutoFilter Field:=3, [COLOR="Red"]Criteria1:="=11177"[/COLOR], Operator:=xlAnd
    ActiveWindow.SmallScroll ToRight:=7
    Columns("J:K").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DÜZELTME").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A1").Select
    ActiveSheet.Paste
    Columns("A:B").Select
    Application.CutCopyMode = False

Merhaba yukarıda kırmızı olan yer için ben ekli dosyada olan kontrol sheetinde a2 değerini yazmak istiyorum fakat ne denediysem yapamadım.Varmıdır bir yolu.

 

[Necdet]

Merhaba,

Dosyanızda makro yoktu, kodlarda yarım olduğu için kesin birşey diyemiyorum ama aşağıdaki gibi olmalı.

Criteria1:="=*" & Sheets("kontrol").Range("A2")

demeniz yeterli, neden olmuyor?

 

[memetcirak]

tamam bu şekilde oldu teşekkürler.tutuldum sanırım bu şekilde yapadım birde biraz yeniyim makro olayında ondan sanırım.Çok saolun tekrardan

 

[Necdet]

tamam bu şekilde oldu teşekkürler.tutuldum sanırım bu şekilde yapadım birde biraz yeniyim makro olayında ondan sanırım.Çok saolun tekrardan

Bazen öyle olur, basit birşeyi bir türlü yapamayız

 

[burackx]

Merhaba bende bu sheet içinde kendim bir değişken seçtirmek istiyorum
örn :Sheets("KW 03 (2)").Name = "KW ?(burda sheet 1 deki bir hücrede yazan numarayı yazdırmak istiyorum)"kw 4 gibi" nasıl yapabilirm