(23/04/2021, 00:11)yyhy yazdı: Sayın farez bey acaba sizde çalışan 00 -Tüm Veri dosyayı buraya ekyebilirmisiniz? Sayın @berduş beyin attığı kodu da çalıştıramadım.
Tüm dosyaları ekledim abey.A sütununda veriolmasın derseniz alttaki kodları silin.
If WorksheetFunction.CountA(.Range("B2:B" & Rows.Count)) > 0 Then
son = .Range("B" & Rows.Count).End(3).Row
.Range("A2").Value = 1
.Range("A2:A" & son).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=son
End If
Verileri Birleştir 1.rar
(Dosya Boyutu: 939,05 KB | İndirme Sayısı: 3)
Verileri Birleştir 2.rar
(Dosya Boyutu: 938,87 KB | İndirme Sayısı: 3)
Verileri Birleştir 3.rar
(Dosya Boyutu: 941,43 KB | İndirme Sayısı: 3)