- Katılım
- 11 Ağustos 2005
- Mesajlar
- 26
Merhaba Arkadaşlar;
Bu forumda öğrendiklerimle bir uygulama yapmaya çalışıyorum. (Uygulama dosyası ektedir) Bu uygulamada yükleme için ülke seçildikten sonra (a4), o ülkenin şehirlerinin seçilmesini(b4), ardından o ülkenin sınır kapılarının seçilmesini (c4); boşlatma için ülke seçildikten sonra (d4); boşlatma için o ülkeden bir şehir seçilmesini (e4), ardından o ülkenin sınır kapılarının seçilmesini (f4) istiyorum. Ülke, şehir ve sınır kapıları diğer çalışma sayfalarından çekiliyor.
İlk aşamada yükleme ülkesini ve şehrini seçebilmeme rağmen, çıkış gümrüğü boş açılır liste halinde geliyor. Bu yüzden burada tıkandım. Ve boşlatma kısmına hiç geçmedim.
Bu işlemi yapmak için kullandığım kod, yine sizlerden öğrendiğim şu kod oldu:
Sizce neden böyle bir problemle karşılaşıyorum. Ve bu uygulamayı gerçekleştirmek için bana nasıl bir öneride bulunursunuz? Ãimdiden teşekkür ederim.
Bu forumda öğrendiklerimle bir uygulama yapmaya çalışıyorum. (Uygulama dosyası ektedir) Bu uygulamada yükleme için ülke seçildikten sonra (a4), o ülkenin şehirlerinin seçilmesini(b4), ardından o ülkenin sınır kapılarının seçilmesini (c4); boşlatma için ülke seçildikten sonra (d4); boşlatma için o ülkeden bir şehir seçilmesini (e4), ardından o ülkenin sınır kapılarının seçilmesini (f4) istiyorum. Ülke, şehir ve sınır kapıları diğer çalışma sayfalarından çekiliyor.
İlk aşamada yükleme ülkesini ve şehrini seçebilmeme rağmen, çıkış gümrüğü boş açılır liste halinde geliyor. Bu yüzden burada tıkandım. Ve boşlatma kısmına hiç geçmedim.
Bu işlemi yapmak için kullandığım kod, yine sizlerden öğrendiğim şu kod oldu:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$4" Then Exit Sub
On Error Resume Next
Set s1 = Sheets("sayfa2")
ilksat = [sayfa2!a1:a65536].Find([a4].Value).Row
If ilksat = 2 Then ilksat = 1
sonsat = WorksheetFunction.CountIf([sayfa2!a:a], [a4].Value) + ilksat - 1
adr = "R" & ilksat & "C2:" & "R" & sonsat & "C2"
ActiveWorkbook.Names.Add Name:="ad", RefersToR1C1:="=Sayfa2!" & adr
[b4].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=ad"
End With
If Target.Address <> "$A$4" Then Exit Sub
On Error Resume Next
Set s1 = Sheets("sayfa3")
ilksat = [sayfa2!a1:a65536].Find([a4].Value).Row
If ilksat = 2 Then ilksat = 1
sonsat = WorksheetFunction.CountIf([sayfa3!a:a], [a4].Value) + ilksat - 1
adr = "R" & ilksat & "C2:" & "R" & sonsat & "C2"
ActiveWorkbook.Names.Add Name:="ad1", RefersToR1C1:="=Sayfa3!" & adr
[c4].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=ad1"
End With
End Sub