Sütunlara bazı bilgileri yazdırma

Katılım
17 Nisan 2007
Mesajlar
319
Excel Vers. ve Dili
Office 2013 Türkçe
Sevgili Excel Üstadları Merhaba ,

Başlık olarak ne yazacağımı bilemediğim icin yanlış birsey yazmış olabilirim :(
Bir konuda yardımınıza ihtiyacım var...
Şimdi ; bana sürekli gelen bir excel dosyası var...Bu dosyada şasi bilgileri mevcut...Ben bu dosyayı açıp öncelikle csv formatında bir dosya oluşturuyorum...Daha sonra notepad ile açıp her şasinin yanına
;1000;CAT;REN;BR bunu ekliyorum...Notepad ile açıyorum çünkü dosya csv uzantılı olmadığı icin , kullandığımız program csv formatını okuyor...
Yani excelde dosyayı açtığım zaman A sütununda şasi bilgisi , B sütununda 1000 , C sütununda CAT , D sütununda REN , E sütununda da BR yazıyor...

Bu dosya bazen 5000 satırdan fazla olabiliyor...Böyle oluncada tek tek eklemek cok uzun sürüyor...Bunun icin bir makro yapabilirmiyiz acaba...
İlgilenen herkese şimdiden çok teşekkürler...
 

Ayhan Ercan

Özel Üye
Katılım
10 Ağustos 2005
Mesajlar
1,571
Excel Vers. ve Dili
Microsoft 365- Türkçe
Merhaba Sn sakoz

Ek Dosyada
Hücreleri teker teker seçerek deneyiniz.....
İstediğiniz böyle bişeymi?

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell = "" Or Right(ActiveCell, 3) = ";BR" Then Exit Sub
ActiveCell = ActiveCell & ";1000;CAT;REN;BR"
End Sub
 
Katılım
17 Nisan 2007
Mesajlar
319
Excel Vers. ve Dili
Office 2013 Türkçe
Sn Ayhan Bey ,

Öncelikle ilginiz icin teşekkür ederim...Sizin yazdığınız makroyu uyguladığım zaman A sütununa ilave ediyor...bu durumda da dosyayı okutma problemi yaşıyorum.A sütununa ilave etmemesi gerekiyor...B sütununa 1000 , C sütununa CAT , D sütununa REN , E sütununa da BR yazması gerekiyor.
Tekrar teşekkürler...
 

Ayhan Ercan

Özel Üye
Katılım
10 Ağustos 2005
Mesajlar
1,571
Excel Vers. ve Dili
Microsoft 365- Türkçe
Ek Dosyayı, "Oluştur" düğmesini tıklayarak İnceleyiniz....
 
Katılım
17 Nisan 2007
Mesajlar
319
Excel Vers. ve Dili
Office 2013 Türkçe
Ayhan Bey ,

Çok teşekkür ederim...Tam istedigim gibi oldu....Bende biraz üzerinde revizyon yaptım...Tam anlamıyla mükemmel oldu...Tekrar cok SAolun...

İyi çalışmalar...
 

Ayhan Ercan

Özel Üye
Katılım
10 Ağustos 2005
Mesajlar
1,571
Excel Vers. ve Dili
Microsoft 365- Türkçe
Ayhan Bey ,

Çok teşekkür ederim...Tam istedigim gibi oldu....Bende biraz üzerinde revizyon yaptım...Tam anlamıyla mükemmel oldu...Tekrar cok SAolun...

İyi çalışmalar...
Sizde Sağolun..
İyi Çalışmalar....
 
Üst