Sutundan sırasıyla verı almak

[ADEMES]

Ektekı dosyada a sutunun lımanın bolgesı b sutunundada ısmı yer alıyor .

E sutununa sırasıyla bu bılgılerı nasıl cekebılırım .

Saygılarımla
adem eskıcı

 

[numan şamil]

Ektekı dosyada a sutunun lımanın bolgesı b sutunundada ısmı yer alıyor .

E sutununa sırasıyla bu bılgılerı nasıl cekebılırım .

Saygılarımla
adem eskıcı

Merhaba
Aşadaki kodları bir butona bağlayıp denermisiniz

Sub numan()
Application.ScreenUpdating = False
Range("E1:E" & Rows.Count).ClearContents
satır = 1
For z = 1 To Range("b" & Rows.Count).End(3).Row
If Range("A" & z).Value <> "" And Range("A" & z).Value = Range("d1").Value Then
Range("E" & satır).Value = Range("b" & z).Value
satır = satır + 1
End If
Next z
Application.ScreenUpdating = True
End Sub

 

[ADEMES]

Tesekkurler pekı c,d,e,f sutunlarındada bu lımanlara aıt bılgıler var onlarıda bu kosula baglı aynı sekılde e,f,g,h,ı sutunlarına getırebılırmıyım .

 

[numan şamil]

Tesekkurler pekı c,d,e,f sutunlarındada bu lımanlara aıt bılgıler var onlarıda bu kosula baglı aynı sekılde e,f,g,h,ı sutunlarına getırebılırmıyım .

Yanlış anlamadıysam "d1" hücresinde bulunan verinin "A" sutununda bulunan verilerden eşleşen verilerin karşılıklarını getirmek için kod

Sub numan()
Application.ScreenUpdating = False
Range("G2:K" & Rows.Count).ClearContents
satır = 2
For z = 1 To Range("A" & Rows.Count).End(3).Row
If Range("A" & z).Value <> "" And Range("A" & z).Value = Range("d1").Value Then
Range("g" & satır).Value = Range("b" & z).Value
Range("h" & satır).Value = Range("c" & z).Value
Range("ı" & satır).Value = Range("d" & z).Value
Range("j" & satır).Value = Range("e" & z).Value
Range("k" & satır).Value = Range("f" & z).Value
satır = satır + 1
End If
Next z
Application.ScreenUpdating = True
End Sub

Kendinize göre ayarlarsınız

 

[ADEMES]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("l2:q" & Rows.Count).ClearContents
satır = 2
For Z = 1 To Range("A" & Rows.Count).End(3).Row
If Range("A" & Z).Value <> "" And Range("A" & Z).Value = Range("s1").Value Then
Range("l" & satır).Value = Range("b" & Z).Value
Range("m" & satır).Value = Range("c" & Z).Value
Range("n" & satır).Value = Range("d" & Z).Value
Range("o" & satır).Value = Range("e" & Z).Value
Range("p" & satır).Value = Range("f" & Z).Value
Range("q" & satır).Value = Range("g" & Z).Value
satır = satır + 1
End If
Next Z
Application.ScreenUpdating = True
End Sub

kodları degıstırıp kendı sıstemıme uyguladım fakat surda sorun var diyor .

If Range("A" & Z).Value <> "" And Range("A" & Z).Value = Range("s1").Value Then

neyi yanlıs yapıyorum bılgılendırımısınız

 

[ADEMES]

komutu yerıne getırıyor ama yukarıdaki hatayı veriyor (

 

[numan şamil]

Merhaba
bende hata vermiyor
Not: kodları sayfanın kod bölümüne yazman gerekiyor

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("l2:q" & Rows.Count).ClearContents
satır = 2
For Z = 1 To Range("A" & Rows.Count).End(3).Row
If Range("A" & Z).Value <> "" And Range("A" & Z).Value = Range("s1").Value Then
Range("l" & satır).Value = Range("b" & Z).Value
Range("m" & satır).Value = Range("c" & Z).Value
Range("n" & satır).Value = Range("d" & Z).Value
Range("o" & satır).Value = Range("e" & Z).Value
Range("p" & satır).Value = Range("f" & Z).Value
Range("q" & satır).Value = Range("g" & Z).Value
satır = satır + 1
End If
Next Z
Application.ScreenUpdating = True
End Sub

 

[ADEMES]

Hersey ıcın tesekkur ederım . Yaptım gorunen fakat " type dısmatch " dıye bır hata alıyorum bunu nasıl cozebılırım .

Saygılarımla ,
adem eskıcı

 

[ADEMES]

l ve m sutunlarında rakam q ve p sutunlarındada tarıhler var bunlardan dolayı zannedersem hata mesajı alıyorum .

lutfen bunları nasıl girmem gerektiğiyle ilgili yardım edermisiniz .

sayglarımla ,
adem eskici

 

[turist]

Sayın ADEMES,

Sayın numan şamil'in kodlarının biraz daha ilerletip, otomatik seçmeli bir halde düzenlenmiş dosyanız ektedir.

 

[ADEMES]

sayın turist ,

nazik cevabınız için cok tesekkur ederim .

kendime yorumlamaya calıstıgım dosya ekteki gibidir .
lütfen incelermisiniz .

t1 den bolgeyi secince gemiler otomatik olarak geliyor . bu kodları kullanmak istediğim dosya ve şekil budur . tek sorunum kaldı . bolgeyi secince gemileri getiriyor fakat type mismatch hatası veriyor . bu hatayı vermemesini nasıl saglarım . yada hata neden kaynaklı onu bulamıyorum .

saygılarımla
adem eskici

 

[turist]

Dosyanızın detaylar sayfasındaki A..... H sütunlarında yeralan formüllerinizi;
Başında (IFERROR - EĞERHATA) olacak şekilde düzeltin. sorun çözülür.
Örnek:

=VLOOKUP(F2;ports!A:B;2;0)

şeklindeki formülünüzü,

=[B][COLOR="Red"]IFERROR[/COLOR][/B](VLOOKUP(F2;ports!A:B;2;0)[B][COLOR="red"];""[/COLOR][/B])

şeklinde değiştirin. (Bütün sütunlardakileri)

VLOOKUP= DÜŞEYARA
IFERROR= EĞERHATA

 

[ADEMES]

Sorunum cozulmustur . Iliginize cok tesekkurler .

Iyi hafta sonları

 

[numan şamil]

Sorunum cozulmustur . Iliginize cok tesekkurler .

Iyi hafta sonları

Merhaba
Mesajınızı geç gördüm.Kusura bakma
Sorununuzun çözüldüğünüze sevindim
İyi çalışmalar