excelde yardım!!!

[bagnazlı]

Merhaba Arkadaşlar,

Yukardaki linkte yer alan excel görüntüsünde satır ve sütun verilerini birleştirmem gerekiyor.
Öğrneğin 81 tane adananın karşısına adana-adıyaman... vs sıralayıp verilerin kesiştikleri hücredeki değer almam lazım.

mesela; adanaadana 0
adanaadıyaman 335
adanaafyonkarahisar 572

gibi sonra diğer il olan adıyamana geçicek
adıyamanadana 335
adıyamanadıyaman 0
adıyamanafyonkarahisar 907 gibi

sonra 81 ilin tamamında yapmam gerekiyor.

Yardımlarınızı bekliyorum, şimdiden teşekkür ederim.

 

[bagnazlı]

link hatalı olmuş sanırım excel yada foto nası eklenir bilmiyorum.

 

[huseyinvurkan]

Merhaba www.dosya.tc adresine girip dosyanı yükleyip linkini buraya yapıştırırsan olur

 

[bagnazlı]

yukarıya fotoyu yapıştırdım oldu galiba

 

[bagnazlı]

merhaba arkadaşlar,

yardımlarınızı bekliyorum.

 

[bhdr]

merhaba arkadaşlar,

yardımlarınızı bekliyorum.

İstemiş olduğunuz çalışmayı doğru anladıysam Ek' te gönderilmiştir.

Ayrıca bu tarz çalışmalarda daha doğru sonuçlar ve hızlı yardımcı olunması acısından Ek eklemeyi unutmayınız.

 

[bagnazlı]

dönüşlerin için teşekkür ederim ancak dosyaları indiremiyorum, altın üyelik gerekiyor diyor nasıl olucaz?

 

[bhdr]

dönüşlerin için teşekkür ederim ancak dosyaları indiremiyorum, altın üyelik gerekiyor diyor nasıl olucaz?

Forum anasayfasın da gerekli yönlendirmeler mevcut bu konu ile alakalı.

 

[halit3]

Dosyanızda iki sayfa olsun
mesafe cetveline ait sayfa adı Sayfa1 olsun Diğer sayfa adı da Sayfa2 olsun aşağıdaki kodu Sayfa2 de çalıştırın.



kod:

Sub deneme1()

Sheets("Sayfa2").Range("A2:C6700").ClearContents

sat = 2
For i = 4 To Worksheets("Sayfa1").Cells(Rows.Count, "a").End(3).Row
aranan1 = Sheets("Sayfa1").Cells(i, "a").Value

For j = 2 To Worksheets("Sayfa1").Cells(i, Columns.Count).End(xlToLeft).Column
bulunan1 = Worksheets("Sayfa1").Cells(i, j).Value
If bulunan1 > 0 Then
Sheets("Sayfa2").Cells(sat, 1).Value = aranan1
Sheets("Sayfa2").Cells(sat, 2).Value = Worksheets("Sayfa1").Cells(3, j).Value
Sheets("Sayfa2").Cells(sat, 3).Value = bulunan1
sat = sat + 1
End If
Next j
Next i

MsgBox " Düzenleme Tamanlanmıştır..."

End Sub

not dosyada kodlar Sayfa1 (mesafe cetveli) ve Sayfa2 olmalı yoksa kod çalışmaz.

 

[bagnazlı]

Teşekkür ederim Halit bey çok saol

 

[bagnazlı]

30 11 16.958,53
21 10 13.762,70
21 20 28.345,97
30 6 12.415,34
30 9 54.606,11
21 44 15.102,37
45 27 11.331,89
45 4 17.979,65

arkadaşlar excelde yukarıdaki verilerden atıyorum 20 bin ve üzeri olanların sadece toplamını boş bir hücreye almam gerekiyor bir formülü varmıdır?