Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Site ile ilgili... > Forum Kurallarına Uymayan Başlıklar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Forum Kurallarına Uymayan Başlıklar excel.web.tr forum kurallarına uymayan başlıklar bu bölüme taşınır. Başlığın sahibi 3 gün içerisinde gerekli düzenlemeleri yapmadığı takdirde başlık Moderatörler tarafından silinir.

Özel Arama


Yanıtla
 
Konu Araçları Görünüm Modları
Eski 09-11-2017, 09:27   #1
bagnazlı
 
Giriş: 26/01/2009
Şehir: İstanbul
Mesaj: 13
Excel Vers. ve Dili:
excel 2003 türkçe
Varsayılan excelde yardım!!!

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.

Bu mesaj en son " 09-11-2017 " tarihinde saat 09:49 itibariyle bagnazlı tarafından düzenlenmiştir....
bagnazlı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 09:30   #2
bagnazlı
 
Giriş: 26/01/2009
Şehir: İstanbul
Mesaj: 13
Excel Vers. ve Dili:
excel 2003 türkçe
Varsayılan

link hatalı olmuş sanırım excel yada foto nası eklenir bilmiyorum.
bagnazlı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 09:41   #3
huseyinvurkan
 
Giriş: 12/08/2007
Şehir: İstanbul
Mesaj: 251
Excel Vers. ve Dili:
2003 türkçe 2016 türkçe
Varsayılan

Merhaba www.dosya.tc adresine girip dosyanı yükleyip linkini buraya yapıştırırsan olur
huseyinvurkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 09:45   #4
bagnazlı
 
Giriş: 26/01/2009
Şehir: İstanbul
Mesaj: 13
Excel Vers. ve Dili:
excel 2003 türkçe
Varsayılan

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

Bu mesaj en son " 09-11-2017 " tarihinde saat 09:50 itibariyle bagnazlı tarafından düzenlenmiştir....
bagnazlı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 10:11   #5
bagnazlı
 
Giriş: 26/01/2009
Şehir: İstanbul
Mesaj: 13
Excel Vers. ve Dili:
excel 2003 türkçe
Varsayılan

merhaba arkadaşlar,

yardımlarınızı bekliyorum.
bagnazlı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 10:39   #6
hltbhdr
Altın Üye
 
Giriş: 26/10/2016
Şehir: Samsun
Mesaj: 24
Excel Vers. ve Dili:
Excel 2010-2013
Varsayılan

Alıntı:
bagnazlı tarafından gönderildi Mesajı Görüntüle
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.
Eklenmiş Dosyalar
Dosya Türü: xls İLLER.xls (781.0 KB, 2 Görüntülenme)
hltbhdr Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 10:47   #7
bagnazlı
 
Giriş: 26/01/2009
Şehir: İstanbul
Mesaj: 13
Excel Vers. ve Dili:
excel 2003 türkçe
Varsayılan

dönüşlerin için teşekkür ederim ancak dosyaları indiremiyorum, altın üyelik gerekiyor diyor nasıl olucaz?
bagnazlı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 10:51   #8
hltbhdr
Altın Üye
 
Giriş: 26/10/2016
Şehir: Samsun
Mesaj: 24
Excel Vers. ve Dili:
Excel 2010-2013
Varsayılan

Alıntı:
bagnazlı tarafından gönderildi Mesajı Görüntüle
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ı.
hltbhdr Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 11:02   #9
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,476
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 11:38   #10
bagnazlı
 
Giriş: 26/01/2009
Şehir: İstanbul
Mesaj: 13
Excel Vers. ve Dili:
excel 2003 türkçe
Varsayılan

Teşekkür ederim Halit bey çok saol

Bu mesaj en son " 09-11-2017 " tarihinde saat 11:45 itibariyle bagnazlı tarafından düzenlenmiştir....
bagnazlı Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:05


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden