DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba.
Aşağıdaki kodları bir modüle yapıştırıp.Deneyiniz.
Sub aktar()
Sheets("Sayfa1").Select
Range("B:B").ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
If Not IsNumeric(Range("A" & i).Value) Then
Cells(sat, "B").Value = Cells(i, "A").Value
Cells(i, "A").Value = ""
sat = sat + 1
End If
Next i
Range("A1:A" & i - 1).SpecialCells(xlCellTypeBlanks).Delete (xlUp)
MsgBox "Aktarma işlemi tamamlandı..!!", vbOKOnly, Application.UserName
End Sub
Saolun;Sub test()
For i = 1 To [a65000].End(3).Row
s = WorksheetFunction.CountA([b1:B65000])
If Not IsNumeric(Range("a" & i)) Then
Range("a" & i).Copy
Range("b" & s + 1).PasteSpecial
End If
Next
End Sub
Sub KELİMELERİ_AKTAR()
For X = 1 To [A65536].End(3).Row
If Not IsNumeric(Mid(Cells(X, 1), 1, 1)) Then Cells(X, 2) = Cells(X, 1)
Next
MsgBox "HARF İÇEREN VERİLER AKTARILMIŞTIR.", vbInformation
End Sub
Sn. komboGıcık oldum . Bir türlü formülasyonla çözemiyorum. PARÇAAL,SAĞDAN,SOLDAN hepsini denedim olmuyor. Bir yerde hata yapıyorum herhalde.