Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
5
Cevap
0
Tıklama
0
Öne Çıkarma
çoklu sütünda aynı tarihleri ​​hizalama işlemi nasıl yapılır !?

S SEO19ProjectManager Konu Sahibi
geçen ay (10543 mesaj)
çoklu sütünda aynı tarihleri ​​hizalama işlemi nasıl yapılır !?


< Resime gitmek için tıklayın >
bunu aşağıdaki gibi


< Resime gitmek için tıklayın >
bu şekilde listelenmesini isteniyor. !!!





< Bu mesaj bu kişi tarafından değiştirildi SEO19ProjectManager -- 31 Mart 2021; 22:24:24 >


A akcan
geçen ay (2041 mesaj)
bir kural yoksa manuel'den başka çare yok


Bu mesaja 1 cevap geldi.

S SEO19ProjectManager Konu Sahibi
geçen ay (10543 mesaj)
şimdi ! A sütününda tarih B sütününde bilgi metni var C sütününda tarih D sütününda bilgi var

A ve B sütünları full eksiksiz tarih ve bilgi içermekte

C ve D sütünları eksik tarih ve bilgileri içermekte

bu durumda :

A sütün tarihi ile C sütün tarihi eşit değil ise = C ve D sütününü bir alta kaydır

ve tekrar A sütün tarihi ile C sütün tarihi eşit değil ise = C ve D sütününü bir alta kaydır

şeklinde bir kod lazım : hocam bunu nasıl yapabiliriz !?




Bu mesajda bahsedilenler: @akcan

A akcan
geçen ay (2041 mesaj)
soruyu tam anlamış değilim ama yedek alıp aşağıdaki makroyu deneyin

Sub Duzenle()
ss = Range(Range("A1").End(XlDirection.xlDown).Address).Row 'A son satır
For s = 1 To ss
  tar_a = Cells(s, 1) 'Tarih A sütunu
  tar_c = Cells(s, 3) 'Tarih C sütunu
  If tar_a <> tar_c Then
    ssc = Range("C1").SpecialCells(xlLastCell).Row 'C son satır
    Range(Cells(s, 3), Cells(ssc, 4)).Select
    Selection.Cut Destination:=Range(Cells(s + 1, 3), Cells(ssc, 4))
  End If
Next
End Sub


Bu mesaja 1 cevap geldi.

S SEO19ProjectManager Konu Sahibi
geçen ay (10543 mesaj)
formül komutu olarak üst satıra boş satır ekle veya aşağıya kaydır komutu nedir !?




Bu mesajda bahsedilenler: @akcan

A akcan
geçen ay (2041 mesaj)
Range(Cells(s, 3), Cells(ssc, 4)).Select
' Belirlenen hücreleri seç
Selection.Cut Destination:=Range(Cells(s + 1, 3), Cells(ssc, 4))
' seçili hücreleri kes, Hedefe yapıştır



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.