• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

isime göre tarihi sütunlara yazdırma

A

alperk72

Katılım
8 Mart 2014
Mesajlar
26
Excel Vers. ve Dili
2004
merhaba bende şu şekilde veriler var
ALİ ESER 06.11.2017 14:00
ALİ ESER 06.11.2017 16:30
ALİ ESER 07.11.2017 08:00
ALİ ESER 07.11.2017 09:15
ALİ ESER 07.11.2017 10:30
ALİ ESER 07.11.2017 11:30
ALİ ESER 07.11.2017 12:00
AYKUT GÜLSEVEN 06.11.2017 08:30
AYKUT GÜLSEVEN 06.11.2017 12:45
AYKUT GÜLSEVEN 07.11.2017 08:25
AYKUT GÜLSEVEN 07.11.2017 10:40
AYKUT GÜLSEVEN 07.11.2017 11:20
AYKUT GÜLSEVEN 07.11.2017 12:45

farklı bir hücreye Ali Eser'i tek yazacak yanındaki sütunlara da sıralayacak ne zaman Ali Eser'e farklı tarih eklesem yanına yazacak

yani şu şekilde olmasını nasıl sağlarım

ALİ ESER 06.11.2017 14:00 06.11.2017 16:30 07.11.2017 08:00 07.11.2017 09:15 07.11.2017 10:30 07.11.2017 11:30 07.11.2017 12:00
AYKUT GÜLSEVEN 06.11.2017 08:30 06.11.2017 12:45 07.11.2017 08:25 07.11.2017 10:40 07.11.2017 11:20 07.11.2017 12:45
 
Selamlar

İsteğinizi örnek bir dosya ile aşağıdaki adrese yüklerseniz daha çabuk yanıt alırsınız.

Kolay gelsin



www.dosya.tc/
 
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Cells(Target.Row, "A") > "" Then
Range("A2:B1000").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A65536").End(3).Select
End If
End Sub
 
Hocam cok teşekkürler ama makroyu bir butona atadım ama calısmadı bir türlü
 
formülle nasıl yaparız?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst