FormÜlde Ne Hata Yapiyorumda B Ve C Dekİ HÜcrelerİ BİtleŞtİrmİyor

[kelti_2000]

Sheets("personel").Select
Range("I5:I700").Select
Selection.ClearContents
Range("I5").Select
ActiveCell.FormulaR1C1 = _
"=IF(TRIM(RC[-3])="""",0,TRIM(RC[-5])&"" ""&TRIM(RC[-4]))"
Range("B5").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
'ActiveCell.FormulaR1C1 = "=IF(RC[-5]="""","""",RC[-5]&"" ""&RC[-4])"
'Range("G5").Select
'Selection.Copy
Range("B3:B700").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Sheets("Personell").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


B HÜCRESİNDE İSİMLER , C HÜCRESİNDE SOYİSİMLER VAR
BU FORMÜLÜ ÇALIŞTIRDIĞIMDA SADECE İSMİ HÜCREYE YAZIYOR

 

[Levent Menteşoğlu]

Bir örnek dosya ile yapmak istediğinizi açıklarsanız daha sade bir kod önerilebilir.