41.000 satırdan oluşan veride bazı " olan karekterlerde bir üstünde değer varsa "

[yun.em]

41.000 satırdan oluşan veride bazı " olan karekterlerde bir üstünde değer varsa "

41.000 satırdan oluşan veride bazı " olan karekterlerde bir üstünde değer varsa değer varsa " yerine bir üst değerin yazılması mümkün mü ?

biraz karışık anlattım ama dosyada daha anlaşılır...

dosyayı ekliyorum.... işlem yapılacak sutun C sutunu

 

[arifcell]

41.000 Satir

Sub DUZENLE()
For X = 1 To 50000
DEGER = Cells(X, 3).Value
If DEGER = """" Then
DEGER = Cells(X - 1, 3).Value
Cells(X, 3).Value = DEGER
End If

Next X
End Sub

MAKROSU ISINI HALLEDECEKTIR.
AMA 2. SORUNUNU ANLAYAMADIM.
METNI SUTUNLARA DONUSTUR YAPMADIGIN HAI ILE DOSYAN NEREDE?

 

[arifcell]

Dosyasi

Kardes Dosyani Koymayi Unuttum

 

[yun.em]

Dosyanin Eskİ Halİnİ Eklİyorum..

Dosyanin Verİ / Metİnlerİ Sutuna DÖnÜŞtÜr Kismi Yapilmadan Öncekİ Halİnİ Eklİyorum....

Bİrde Ben Bu Makro ÇaliŞtiracak Kadar Excel Bİlmİyorum... Sİzden Rİca Etsem Yapmaniz MÜmkÜn MÜ ?saygilarimla... TeŞekkÜr Ederİm...

 

[arifcell]

Son Hali

Arkadasim Istedigin Dosya Ektedir
Kolay Gelsin.
Metni Sutunlara Donustururken Sinirlandirilmisi Isaretle Ve Ayrac Olarak " Isaretini Kullan. Daha Sonra Veri Tiplerini Genel Degilde Metin Olark Isaretlersen Sorun Kalmayacaktir.

Bu Arada Dosya Yuklemede Sorun Oluyor
Mail Adresini Ver Oraya Dosyani Mail Atayim

 

[yun.em]

Maİl Adresİm..

mail adresim yunusgurcan@hotmail.com...

bu arada sizin göndereceğiniz dosyada her iki sorununda mevcut halimi var....

eğer 1.sorun yoksa benim makro bilmememden dolayı sorunu yine çözemeyeceğim...