Metin ile Tarih Birleştirme.

[cemilk]

Selamlar

A1 Hücresine 01.01.2010 yazılı B1 Hücresinde Adana Yazılı Bunları birleştirerek makro ile yedekleme yapmak istiyorum ama Birleştir formülünü kullandığımda Tarih Metin oluyor. Ne yapabilirim.

Saygılar.

Kolay gelsin.

 

[Ömer]

Merhaba,

=METNEÇEVİR(A1;"gg.aa.yyyy")&" "&B1

İstediğiniz bu mu?

.

 

[cemilk]

Evet Allah razı olsun.

 

[TUNCA ERSİN]

Merhaba,

=METNEÇEVİR(A1;"gg.aa.yyyy")&" "&B1

İstediğiniz bu mu?

.

Sy. @Ömer ;
hocam aşağıdaki kodu kopyala yapıştır değince otomatik olarak çalıştıra bilir miyiz.

Sub birlestir_hes()
For a = 1 To Cells(5000, 2).End(xlUp).Row
Cells(a, 1) = Format(Cells(a, 2).Value, "DDMMYYhhnn") & "" & Right(Cells(a, 4).Value, 8) & "" & Right(Cells(a, 5).Value, 8)
Next
End Sub

 

[Korhan Ayhan]

Tam olarak yapmak istediğiniz işlem nedir? Örnek dosya üzerinde tarif edebilir misiniz?

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;
ekli dosyamı ekledim hocam şehir dışında idim ilk fırsatta gönderdim. teşekkür ederim.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    Application.EnableEvents = False
    Range("A2:A" & Rows.Count).ClearContents
    With Range("A2:A" & WorksheetFunction.Max(2, Cells(Rows.Count, 2).End(3).Row))
        .Formula = "=IF(B2="""","""",TEXT(B2,""ggaayyssdd"")&RIGHT(D2,8)&RIGHT(E2,8))"
        .Value = .Value
    End With
10  Application.EnableEvents = True
End Sub

 

[TUNCA ERSİN]

sy. @Korhan Ayhan ;
elinize sağılk Allah razı olsun hocam. çok hızlı ve güzel çalışıyor.

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;
Hocam bu kodun içine düşeyara ekleye bilirmiyiz.

sayfanın kodu kısmına birleştirme kodu yazmıştınız. aynı kodun içine
D sütununda ki koşul AA ve AB sütunununda ki durumuna göre kod ile R sütununa getiribiliri miyiz , düşeyara yapılır mi ? Ama kopyala yapıştır yapınca veya veri girilince çalışacak R sütununda TAMAM yazınan satırlarda çalışmayacak.