Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Forum Kurallarına Uymayan Başlıklar (http://www.excel.web.tr/forumdisplay.php?f=63)
-   -   excelde yardım!!! (http://www.excel.web.tr/showthread.php?t=168002)

bagnazlı 09-11-2017 09:27

excelde yardım!!!
 
Merhaba Arkadaşlar,

https://resmim.net/f/SwKCfj.png

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ı 09-11-2017 09:30

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

huseyinvurkan 09-11-2017 09:41

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

bagnazlı 09-11-2017 09:45

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

bagnazlı 09-11-2017 10:11

merhaba arkadaşlar,

yardımlarınızı bekliyorum.

hltbhdr 09-11-2017 10:39

1 Eklenti(ler)
Alıntı:

bagnazlı tarafından gönderildi (Mesaj 916738)
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ı 09-11-2017 10:47

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

hltbhdr 09-11-2017 10:51

Alıntı:

bagnazlı tarafından gönderildi (Mesaj 916749)
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 09-11-2017 11:02

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:

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ı 09-11-2017 11:38

Teşekkür ederim Halit bey çok saol


Saat 05:46

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.