iki açılır kutu yardım

[Muhammet Okumuş]

eki inceleyip yardımcı olurmusunuz.office 2007

 

[Muhammet Okumuş]

yardım edebilirmisiniz.

 

[Muhammet Okumuş]

arkadaşlar nolur yardımcı olun

 

[Ömer]

Merhaba,

Dosyanızı 2003 formatında kaydetip eklermisiniz..

 

[Muhammet Okumuş]

ekledim ilginize teşekkürler

 

[Ömer]

ekledim ilginize teşekkürler

Dosyanız ektedir.

.

 

[Muhammet Okumuş]

sayın espiyonajl çok teşekkür ederim.

 

[Ömer]

sayın espiyonajl çok teşekkür ederim.

Rica ederim.

İyi çalışmalar..

 

[Muhammet Okumuş]

bir sorum daha var

 

[Ömer]

bir sorum daha var

Dosyanız ektedir.

.

 

[Muhammet Okumuş]

ESPİYONAJL valla süpersiniz.teşekkür ederim

 

[mberkay]

açılan pencere

merhaba
bir kutdaki metini açılan pencereden seçmek istiyorum. bu fonksiyonu tam anlayamadım. "girdi aralıgı" ve "hücre baglantısı" ne anlama geliyor. word de elimde örnegi var. örnegin raporu hazırlayan bölümünde 3-4 isimden biri tıklanacak ve o hücrede o isim görünecek.

teşekkürler

 

[Muhammet Okumuş]

dosyada açılır kutu yerine f1 ve g1 hücrelerine yazdığım değeleri bulmasını istiyorum.dosyalar kaybolmuş.

 

[Ömer]

Merhaba,

Değerleri bulmasından kastınız nedir?

Dosya üzerinde olması gereken birkaç değeri manuel girerek açıklayınız..

 

[Muhammet Okumuş]

ekte anlatmaya çalıştım.

 

[leumruk]

Merhaba,
f1 ve g1'e veri girdikten sonra bu hücrelerden birine çift tıklayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [f1:g1]) Is Nothing Or [f1] = "" Or [g1] = "" Then Exit Sub
    Set c = Range("a1:a" & [a65536].End(3).Row).Find([f1], LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
        If Cells(c.Row, "b") = [g1] Then
        Range(Cells(c.Row, "a"), Cells(c.Row, "d")).Copy
            Cells([f65536].End(3).Row + 1, "f").PasteSpecial Paste:=xlValues
            Cells([f65536].End(3).Row, "j") = c.Row & ". satır"
            Application.CutCopyMode = False
            Exit Sub: End If
        Set c = Range("a1:a" & [a65536].End(3).Row).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End Sub

 

[Muhammet Okumuş]

leumruk hocam herhengi bir değişme olmadı.dosya ekledim.seçili olanları sarı bölüme getirilmesini istiyorum

 

[leumruk]

F1 ve g1 deki verileri a ve b sütununda yan yana gelecek şekilde aratıp, yanındaki verileri sarı bölmeye getirmek istemiyor musunuz?

F1 ya da g1 hücresinden herhangi birine çift tıklayıp denediniz mi?

 

[Muhammet Okumuş]

anlatamadım sanırım.benim istediğim f1 ve g1 hücresine yazdığım değerler a ve b sütununda karışık olabilir

 

[leumruk]

Ekteki gibi bir şey mi???

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [f1:g1]) Is Nothing Or [f1] = "" Or [g1] = "" Then Exit Sub
Range("f2:j" & [f65536].End(3).Row + 1).ClearContents
Set Aralık = Range("a1:b" & [a65536].End(3).Row)
    Set c = Aralık.Find([f1], LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
        If Cells(c.Row, 2) = [g1] Or Cells(c.Row, 1) = [g1] Then
        Sat = [f65536].End(3).Row + 1
        Range(Cells(c.Row, "a"), Cells(c.Row, "d")).Copy
            Cells(Sat, "f").PasteSpecial Paste:=xlValues
            Cells(Sat, "j") = c.Row & ". satır"
            Application.CutCopyMode = False
        End If
        Set c = Aralık.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End Sub