Herkese merhabalar. Bir konuda yardımınızı rica edebilirmiyim.
Aşağıya eklemiş olduğum kodlarla sayfa1'e A-K arası verileri kopyalıyorum. Benim istediğim E sütunu hariç diğerlerini kopyalayıp E sütununu boş bıraksın. Yani A-D ve F-K aralıklarını koyalayıp, sayfa1'in A-D ve F-K aralıklarına yapıştırsın ve E sütunu boş kalsın. Yardımcı olursanız sevinirim.
If S2.Cells(x, "A").Value <> "" Then
xtarih = S2.Cells(x, "A").Value
If xtarih >= tarih1 And xtarih <= tarih2 Then
S2.Range("A" & x & ":K" & x).Copy
S1.Cells(Satır, 1).PasteSpecial xlPasteValues
Satır = Satır + 1
Aşağıya eklemiş olduğum kodlarla sayfa1'e A-K arası verileri kopyalıyorum. Benim istediğim E sütunu hariç diğerlerini kopyalayıp E sütununu boş bıraksın. Yani A-D ve F-K aralıklarını koyalayıp, sayfa1'in A-D ve F-K aralıklarına yapıştırsın ve E sütunu boş kalsın. Yardımcı olursanız sevinirim.
If S2.Cells(x, "A").Value <> "" Then
xtarih = S2.Cells(x, "A").Value
If xtarih >= tarih1 And xtarih <= tarih2 Then
S2.Range("A" & x & ":K" & x).Copy
S1.Cells(Satır, 1).PasteSpecial xlPasteValues
Satır = Satır + 1