Bu Sayfanin Formatini Ayarlayamadim

[oderkaya]

Sevgili arkadaşlar ,

ekteki dosyada bir database'den kopyalayıp yapıştırdığım bilgiler var.Fakat paste special vs. ile her ne şekilde kopyalarsam kopyalayayım, hücre değerlerine matematiksel işlem ( örnekte basit toplama ) yaptıramadım.
Sheet üzerinde ne tür bir format ayarlaması yaptırmalıyım ki bu hücrelerle işlem yapabileyim...

Saygılar,

 

[The_meltem]

Dosyayı eklemeyi unutmuşsunuz sanırım.

 

[oderkaya]

Pardon Dosyayi Eklİyorum

 

[uzmanamele]

merhaba
verilerinizin önünde veya sonunda boşluk var
KIRP ve trim örneklerini site içi arama yapın.
bul değiştir şeklindede yapabilirsiniz.

 

[oderkaya]

Teşekkürler,
Trim değil de tüm datayı formül kullanmadan boşluksuz olarak hazır hale getirmek için ctrl+f ile find kısmına " " , replace kısmına da "" yazarak replace etmek istiyorum, ancak replace etmiyor ? yanlış bir değer mi replace etmeye çalışıyorum acaba ?

 

[Merhum İdris SERDAR]

Teşekkürler,
Trim değil de tüm datayı formül kullanmadan boşluksuz olarak hazır hale getirmek için ctrl+f ile find kısmına " " , replace kısmına da "" yazarak replace etmek istiyorum, ancak replace etmiyor ? yanlış bir değer mi replace etmeye çalışıyorum acaba ?

Tablodan herhangi bir hücrenin formül cubuğunda sol tarafını seçin. Find bolümüne Shift+Insert ile girin. Replace tarafına geçip bir şey girmeden Replace All deyin.

.

 

[oderkaya]

Tablodan herhangi bir hücrenin formül cubuğunda sol tarafını seçin. Find bolümüne Shift+Insert ile girin.
.

maalesef ben shift+insert ile find/replace tarafına vs. giremedim

 

[oderkaya]

bu arada forumda yer alan hemen hemen tüm macro çözümlerine baktım , tümm sheet'de yer alan hücrelerin başındaki boşlukları kaldıran macrolar da kopyaladığım modüllerde çalışmadı.Macroyu run ediyorum, çalışıyor gibi görünüyor, ancak boşluklar duruyor ??

teşekkürler,

 

[Merhum İdris SERDAR]

maalesef ben shift+insert ile find/replace tarafına vs. giremedim

Dosyanız ekte.

.

 

[oderkaya]

çok teşekkürler,
denedim ancak değiştirilecek alan bulamadım mesajı verdi.
Dosyanın daha geniş hali ekte ,
macrolu bir çözüm olursa ( tüm sheet deki hücre boşluklarını kaldıracak ) çok sevineceğim.

 

[Merhum İdris SERDAR]

çok teşekkürler,
denedim ancak değiştirilecek alan bulamadım mesajı verdi.
Dosyanın daha geniş hali ekte ,
macrolu bir çözüm olursa ( tüm sheet deki hücre boşluklarını kaldıracak ) çok sevineceğim.

Aşağıdaki makroyu kullanın.

Sub Macro1()

Cells.Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2").Select
End Sub



.

 

[oderkaya]

sayın yurttaş ,
ben çabalarınıza çok teşekkür ederim , sizi de sıktım epey, ancak ne macro ne de başka bir çözüm benim dosyada çalışmıyor.
daha fazla sizleri sıkmak istemem,
teşekkürler .

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızdaki karakter boşluk karakteri gibi gözüksede özel bir karakterdir. Aşağıdaki kodu denermisiniz.

Sub Boşluk_Sil()
    Cells.Replace What:=[COLOR=red]Chr(160)[/COLOR], Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub