Mükerrer Kodlarda Düzeltme

Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Merhaba sayın uzmanlarım

Aşağıda,

A , B , C sütunundaki tekrar eden verileri
H , I , J sütununa tekrar ettiği kadar aktaran, makro kodları vardır.
(I ve J sütunlarına fiyat ve tutarlar aktarılıyor)

Şu şekilde düzenleyebilir miyiz

- B , C ve I , J sütununda yapılan işlemleri tamamen iptal edelim (silelim)

- A sütununda ilk hücre (A1), (zannediyorum başlık olduğu için) hariç tutulmuş , fakat aktarırken bu başlık aktarılmıyor, bu başlığı da aktarılacak şekilde değiştirelim (eğer mümkün oluyorsa

- Son olarak aktarımı H sütunu değil de , D sütununa yapacak şekilde değiştirelim

Teşekkür ederim, saygılarımla





Sub MUK()
[H:J].Clear
son = Application.CountA(Columns(1))
For t = 1 To Sheets("Sayfa1").[A65536].End(3).Row
say = WorksheetFunction.CountIf(Columns(1), Cells(t, 1))
If say > 1 Then
k = k + 1
Cells(k, 8) = Cells(t, 1)
Cells(k, 9) = Cells(t, 2)
Cells(k, 10) = Cells(t, 3)
End If
Next
[H:J].Sort KEY1:=[H1]
End Sub

 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Merhabalar sayın uzmanlarım

İsteğimi biraz daha sadeleştireyim
Sadece

A1 , B1 , C1 hücrelerini (yani başlıkları)
H1 , I1 , J1 olarak aktarırsa yeterli olur

Şimdiden teşekkür ederim
Saygılar
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Merhabalar sayın uzmanlarım

İsteğimi biraz daha sadeleştireyim
Sadece

A1 , B1 , C1 hücrelerini (yani başlıkları)
H1 , I1 , J1 olarak aktarırsa yeterli olur

Şimdiden teşekkür ederim
Saygılar
Clear satırından sonra aşağıdaki satırı ekleyin:

[A1:C1].copy [H1]
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Uzmanım teşekkürler, dediğinizin aynısını yaptım fakat olmadı,

Denemek için her şeyi silip sadece
[A1:C1].copy [H1]
bu satırı bıraktım, oluyor, yani kod görevini yapıyor, fakat benim kodlarda clear’ın altına ilave edince olmadı

Acaba eksik bir şey olabilir mi

Tekrar deneyeceğim
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Muhtemelen k değişkeninin 1'den başlatılmasından kaynaklanıyor.
O satırın altına da

k = 1

satırını ilave edip deneyin.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Yusuf uzmanım sayenizde oldu
Teşekkür eder
Sağlıklı günler dilerim ????
 
Üst