• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Açılan liste

Yapmak gereken işlem ney ikinci bir ad mı yanımlayacağız YANİ BAŞKA BİR ÇALIŞMADA UYGULAMAK İÇİN YAPILACAK İŞLEMLERİ TARİF EDEBİLİRMİSİNİZ
 
Bunu daha öncede açıklamıştım. Detaylı incelerseniz rahatlıkla görebilirsiniz.

Sayfalardaki T sütunundaki dolaylı fonksiyonu içinde bulunan sayfa adını verileri aldığınız sayfa adı neyse o şekilde düzenlemelisiniz. Diğer bir konu Ad tanımlamadaki YURTLAR formülü için her sayfa için yeniden bir ad tanımlayarak düzenlemeniz gerekir, dosyadaki YURTLAR1 gibi. Buna göre doğrulamadaki =YURTLAR diğer sayfada =YURTLAR1 olacaktır. Dosyada uygulanan formüller sadece bunlardır. Bu detayları inceleyiniz..

.
 
bütün excel hoacalrına iyi akşamlar ; 41 ci mesajdaki ekdeki dosyada satış sayfasında satılan ürün adı sütununda ürün diye veri doğrulama var ad tanımlamadan düzenliyorum ancak listedin dışını durdurmuyor
 
Eklediğiniz tabloda ürün adıyla tanımlanan aralık başvuru hatası veriyor. Hatanın birkaç nedeni olabilir, başvurulan satırları sildiğinizden yada başvurulan sayfayı sildiğinizden tanımlamadaki aralık bozulabilr. Tanımladaki aralığı düzeltirseniz sorun hallolur.

.
 
S.Evren Gizlen'in 4.mesajdaki dosyasını inceledim ama nasıl yaptığını çözemedim. Çözümün açıklamasını yapabilirmisiniz. Örneğin doğrulamadaki liste kutusuna =grup denilmiş, grup isimleri buraya nasıl geliyor ve isimler içinde aynı sorum.
 
Evet şimdi anladım ad tanımlamalarıyla yapılmış. Tabi ordaki tanımalar içerisindeki formülleri henüz çözemedim :)
 
ÜRÜN tanımlamayı payıyorum listey ürünler geliyor ancak liste dışını engellemiyor
 

Ekli dosyalar

50. mesajdaki ekdeki dosyada ürünler diye bir makro var bu makro alış sayfasından alınan sayfasına veri aktarıyor "alınan" sayfasına bir koruma koymak istiyorum örnek koruma şifresi 123 olsun bu karumayı kaldırıp makro işlemini yapsa sonra tekrar aynı korumayı koysa
 
selam iiy çalışmalar yani bu kod
Sub ÜRÜNLER()
'
If MsgBox(" E M İ N M İ S İ N İ Z", vbYesNo) = vbNo Then Exit Sub
'
Dim hcr As Range, sat As Long
Sheets("ALIŞ").Select
sat = 5
Application.ScreenUpdating = False
Sheets("ALINAN").Range("C5:C65536").ClearContents
For Each hcr In Range("E5:E" & Cells(65536, "E").End(xlUp).Row)
If WorksheetFunction.CountIf(Range("E5:E" & hcr.Row), hcr.Value) = 1 Then
Sheets("ALINAN").Cells(sat, "C").Value = hcr.Value
sat = sat + 1
End If
Sheets("ALINAN").Select
Range("C5:C104").Select
Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C5").Select
Sheets("ALIŞ").Select
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

şifreyi kaldırsın çalışsın ve tekrar şifreyi koysun şifrede123 olabilir
 
Sayın mustafakoza,

Bu kodların açılır listeyle ne ilgisi var. Farklı konularla ilgili sorularınızı yeni konu başlığı açarak sorunuz.

Kod:
Sub ÜRÜNLER()
ActiveSheet.Unprotect Password:=123
[COLOR=red]kodlar[/COLOR]
ActiveSheet.Protect Password:=123
End Sub
.
 
ömer bey ilginiz için teşekkür ederim acak denedim olmuyor tam son şekli ile kodu yazıverebilirmisinizALIŞ SAYFASINA KORUMA KOYMAYACAK ALINAN SAYFASINA KORUMA KOYACAK
 
Son düzenleme:
Geri
Üst