Açılan listedeki değer 1 kez kullanılsın ve sıra atlamasın

[botex]

Mrb bu sistemi Presto Plus isimli bir ERP programında görmüştüm. Çeklerde kullanılıyordu.

seçilen listedeki seçim 1 kez kullanılacak. Başka listede görünmeyecek.


https://yadi.sk/d/B42qvzXOaCACY örnek dosys

 

[botex]

Koşullu biçimlendirme biraz iş gördü ama yetersiz

 

[halit3]

Mrb bu sistemi Presto Plus isimli bir ERP programında görmüştüm. Çeklerde kullanılıyordu.

seçilen listedeki seçim 1 kez kullanılacak. Başka listede görünmeyecek.


https://yadi.sk/d/B42qvzXOaCACY örnek dosys

1. sorunuza makro ile çözüm yapılmıştır.

kodu Sayfa1 in kod bölümüne yapıştırın.
kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

sayfa_adi1 = "veri" ' ActiveSheet.Name
sayfa_adi2 = "Sayfa1" ' ActiveSheet.Name

sat1 = 9
sat2 = 3
taranan_sut = 3

yer = ActiveWindow.Selection.Row
sut = ActiveWindow.Selection.Column
sat = 3

If sut = taranan_sut Then

If yer >= 3 And yer <= 25 Then

Worksheets(sayfa_adi1).Columns(sat1).ClearContents
Sheets(sayfa_adi1).Cells(2, sat1).Value = "FATURALAR"

For r = 3 To Worksheets(sayfa_adi1).Cells(rows.Count, sat2).End(3).Row
aranan = Sheets(sayfa_adi1).Cells(r, sat2).Value
son = 0
For i = 3 To 25
bulunan = Sheets(sayfa_adi2).Cells(i, taranan_sut).Value
If UCase(aranan) = UCase(bulunan) Then

son = 1
Exit For
End If
Next i
If son = 0 Then
Sheets(sayfa_adi1).Cells(sat, sat1).Value = Sheets(sayfa_adi1).Cells(r, sat2).Value
sat = sat + 1
End If
Next r

ilksatır1 = Cells(3, sat1).Address
sonsatır1 = Worksheets(sayfa_adi1).Cells(Worksheets(sayfa_adi1).Cells(rows.Count, sat1).End(xlUp).Row, sat1).Address
ActiveWorkbook.Names.Add Name:="baslik", RefersTo:="=" & sayfa_adi1 & "!" & ilksatır1 & ":" & sonsatır1

Cells(yer, sut).Validation.Delete
Cells(yer, sut).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=baslik"
End If
End If

End Sub

 

[botex]

denedim ama bişey olmadı

 

[halit3]

denedim ama bişey olmadı

Kod ofis 2003 de çalışıyor
çalıştıramadığınız dosyayı koduyla beraber ekleyinde bakalım.

 

[botex]

ben 2010 kullanıyorum abi

 

[halit3]

denedim ama bişey olmadı

Kod 1 nolu mesajınızdaki dosyaya göre yapılmıştır.

3 nolu mesajdaki kodu yeniden denermisiniz.

kod C3 den C25 hücrelerde çalışmaktadır.