günlerdir uğraşıyorum veri doğrulama

meda58 · Cuma saat 22:51'de

günlerdir uğraşıyorum 10 larca makro denedim olmadı lütfen yardım
personel sayfasında tablo1 de ÜNVAN sütununda E10 E1000 arasında herhangi bir hücreye bir şey yazmaya başlayınca dinamik liste açılsın ben yazdıkça bana secenekler sunsun listenin çekileceği yer VERİ sayfası Tablo6 ÜNVAN sütunu AK2 AK100 arasında

volki_112 · Cuma saat 23:06'de

meda58' Alıntı:
günlerdir uğraşıyorum 10 larca makro denedim olmadı lütfen yardım
personel sayfasında tablo1 de ÜNVAN sütununda E10 E1000 arasında herhangi bir hücreye bir şey yazmaya başlayınca dinamik liste açılsın ben yazdıkça bana secenekler sunsun listenin çekileceği yer VERİ sayfası Tablo6 ÜNVAN sütunu AK2 AK100 arasında

Sayfanin kod bölümüne yazıp deneyiniz
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsData As Worksheet
Dim wsPersonel As Worksheet
Dim unvanList As Range
Dim kriter As String
Dim veriAraligi As Range
Dim cell As Range
Dim sonuc As String

' Sayfaları tanımla
Set wsData = ThisWorkbook.Sheets("VERİ")
Set wsPersonel = ThisWorkbook.Sheets("PERSONEL")

' Eğer değişiklik E10:E1000 arasındaysa işlem yap
If Not Intersect(Target, wsPersonel.Range("E10:E1000")) Is Nothing Then
Application.EnableEvents = False
kriter = Target.Value
If kriter <> "" Then
' Verileri al
Set veriAraligi = wsData.Range("AK2:AK100")

' Kriteri içerenleri filtrele
sonuc = ""
For Each cell In veriAraligi
If cell.Value <> "" And InStr(1, cell.Value, kriter, vbTextCompare) > 0 Then
sonuc = sonuc & cell.Value & ","
End If
Next cell

' Eğer eşleşenler varsa doğrulama listesi oluştur
If sonuc <> "" Then
sonuc = Left(sonuc, Len(sonuc) - 1) ' Son virgülü kaldır
Target.Validation.Delete
Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=sonuc
Else
Target.Validation.Delete ' Eğer eşleşme yoksa listeyi kaldır
End If
Else
Target.Validation.Delete ' Boş bırakıldığında listeyi temizle
End If
Application.EnableEvents = True
End If
End Sub

meda58 · Cuma saat 23:20'de

hocam kod çalışmadı ek olarak yapmam gereken bir şey varmı

volki_112 · Cuma saat 23:21'de

meda58' Alıntı:
hocam kod çalışmadı ek olarak yapmam gereken bir şey varmı

Hocam dosyani dosya.co dosya.tc gibi paylasim sitelerine yukle. Buraya da indirme linkini kot dosya uzerinde deneyelim.

meda58 · Cuma saat 23:30'de

https://www.dosya.tc/server3/qq82ma/ADEM_YENI_-1.xlsm.html
hocam dosya burada sarı ile işaretlediğim yerlerde işlem yapılacak personel sayfasında ünvan işyeri ünvan nevi sütunlarına veri sayfasından tablo6 sarı ile işaretli yerlerden bilgi alacak hücreye yazdıkça dinamik liste acılacak ben seçim yapacagım seçimim hücreye yazılacak temel daha uygun ve kolay bir yolu varsa oda olur

volki_112 · Cuma saat 23:35'de

meda58' Alıntı:
https://www.dosya.tc/server3/qq82ma/ADEM_YENI_-1.xlsm.html
hocam dosya burada sarı ile işaretlediğim yerlerde işlem yapılacak personel sayfasında ünvan işyeri ünvan nevi sütunlarına veri sayfasından tablo6 sarı ile işaretli yerlerden bilgi alacak hücreye yazdıkça dinamik liste acılacak ben seçim yapacagım seçimim hücreye yazılacak temel daha uygun ve kolay bir yolu varsa oda olur

Excel versiyonunuz nedir.

meda58 · Cuma saat 23:58'de

volki_112' Alıntı:
Excel versiyonunuz nedir.

hocam işyerinde 2016