• DİKKAT

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

Mükerrer Kodlarda Düzeltme

  • Konbuyu başlatan Konbuyu başlatan izcik
  • Başlangıç tarihi Başlangıç tarihi
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
 
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
 
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]
 
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
 
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.
 
Yusuf uzmanım sayenizde oldu
Teşekkür eder
Sağlıklı günler dilerim ????
 
Geri
Üst