Otomobil Marka SeriModel Veritabanı Çalışması.

Katılım
31 Temmuz 2013
Mesajlar
7
Excel Vers. ve Dili
Excel 2003
Merhabalar,

Daha önce çeşitli uygulamalarda amatör/başlangıç seviyesinde excel formüllerini kullanmıştım. Şu an bir projenin parçası olarak araba marka seri ve modelleriyle ilgili çalışma yapıyorum. Veritabanı Listesi çok uzun, manuel veya formülleri birleştirmeden çalışmak ise çok zor görünüyor. Uygulayabileceğim bir formül için yardımcı olabilirseniz sevinirim.

Şimdiden teşekkürler...

AÇIKLAMA:
Sarı dolgulu olanlar Araç Markası, Mavi dolgulu olanlar Araç Serisi, dolgusuz olanlar ise o seriye ait Araç Modelleridir. Elde etmek istediğim format "Acura CL 2.2" olarak hücreleri birleştirip tüm marka seri modelleri bu formatta aşağıya doğru listelemektir.
 

Ekli dosyalar

Katılım
7 Haziran 2010
Mesajlar
227
Excel Vers. ve Dili
2007 Türkçe
Merhabalar,

Daha önce çeşitli uygulamalarda amatör/başlangıç seviyesinde excel formüllerini kullanmıştım. Şu an bir projenin parçası olarak araba marka seri ve modelleriyle ilgili çalışma yapıyorum. Veritabanı Listesi çok uzun, manuel veya formülleri birleştirmeden çalışmak ise çok zor görünüyor. Uygulayabileceğim bir formül için yardımcı olabilirseniz sevinirim.

Şimdiden teşekkürler...

AÇIKLAMA:
Sarı dolgulu olanlar Araç Markası, Mavi dolgulu olanlar Araç Serisi, dolgusuz olanlar ise o seriye ait Araç Modelleridir. Elde etmek istediğim format "Acura CL 2.2" olarak hücreleri birleştirip tüm marka seri modelleri bu formatta aşağıya doğru listelemektir.
Bunları ayrı sütunlara yazma şansınız yokmu?
a sütunu Araç Markası
b sütunu Seri
c sütunu model

bu şekil olursa istediğiniz olabilir ama şu haliyle nasıl yapılır onu bilmiyorum.
 
Katılım
31 Temmuz 2013
Mesajlar
7
Excel Vers. ve Dili
Excel 2003
Tek Tek kesip kopyalamam gerekir ki 200 sayfayı aşkın veri için oldukça zor ve muhtemelen hatalı manuel işlemlerin olabileceği bir iş çıkar diye düşünüyorum.

1 ler ve 0 lar dan yola çıkarak birşeyler yapılabilir belki.

Sağolun.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
Sn bluebeardx
Örnek dosyanızdaki renklerle orijinal dosyanızdaki renkler aynı ise aşağıdaki kodlar Verileri H Sütununa aktarıyor.

Kod:
Sub aktar()
say = Range("a65536").End(3).Row
For i = 1 To say
If Range("a" & i).Interior.ColorIndex = 6 Then Sarı = Trim(Range("a" & i))
If Range("a" & i).Interior.ColorIndex = 8 Then Mavi = Trim(Range("a" & i))
If Range("a" & i).Interior.ColorIndex = -4142 Then
Say2 = Range("H65536").End(3).Row + 1
Range("H" & Say2).Value = Sarı & " " & Mavi & Trim(Range("a" & i))
End If
Next
End Sub
 
Son düzenleme:
Katılım
6 Şubat 2005
Mesajlar
1,467
B sütunundaki 0 ve 1 rakamları test ederek te aynı sonuç alına bilinir.
Kod:
Sub aktar()
say = Range("a65536").End(3).Row
For i = 1 To say
If Range("B" & i) = 1 And Range("B" & i + 1) = 1 Then Sarı = Trim(Range("a" & i))
If Range("B" & i) = 1 And Range("B" & i + 1) = 0 Then Mavi = Trim(Range("a" & i))
If Range("B" & i) = 0 Then
Say2 = Range("H65536").End(3).Row + 1
Range("H" & Say2).Value = Sarı & " " & Mavi & Trim(Range("a" & i))
End If
Next
End Sub
 

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,158
Excel Vers. ve Dili
Ofis 2019 Türkçe
sn. omerceri, güzel kodlar, elinize sağlık. Arşivime ekliyorum.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
Ayrı hücrelere aktaran kod
Kod:
Sub aktar()
say = Range("a65536").End(3).Row
For i = 1 To say
If Range("B" & i) = 1 And Range("B" & i + 1) = 1 Then Sarı = Range("a" & i)
If Range("B" & i) = 1 And Range("B" & i + 1) = 0 Then Mavi = Range("a" & i)
If Range("B" & i) = 0 Then
Say2 = Range("H65536").End(3).Row + 1
Range("H" & Say2).Value = Sarı 
Range("I" & Say2).Value = Mavi
Range("J" & Say2).Value =Range("a" & i)
End If
Next
End Sub
 
Katılım
31 Temmuz 2013
Mesajlar
7
Excel Vers. ve Dili
Excel 2003
Ömer Bey,

Sadece son satırdaki 3.0 V6 QV tek hücre olarak çıktı makroyu çalıştırdığımda,.
 
Katılım
31 Temmuz 2013
Mesajlar
7
Excel Vers. ve Dili
Excel 2003
Merhaba Ömer Bey,

Çalıştırdım ve sonucu aldım..Çok teşekkür ederim.
 
Katılım
20 Ağustos 2019
Mesajlar
1
Excel Vers. ve Dili
2010
Teşekkürler.
Daha güncel versiyon mevcutmu acaba?
 
Üst