Soru başka sayfaya aktarma sorunu

[NADİR YILDIZ]

Arkadaşlar buradaki bilgileri fatura kontrol listesi sayfasına aktarmak istiyorum.mavi olan alanlar formüllü olduğu için makro ile aktarmıyor.formülsüz olan kırmızı alanları aktarıyor.aktarılacak alanın tamamı formüllü olduğu için makroda nasıl bir değişiklik yapmak gerekiyor.

 

[kulomer46]

Merhaba

İşinize yararsa şayet
Sheets("MİKRO PORTAL").Range("A3:J1000").Copy
satırındaki J harfi yerine Z harfini kullanınız.

Selamlar...

Sheets("MİKRO PORTAL").Range("A3:J1000").Copy

Private Sub CommandButton1_Click()
Sheets("MİKRO PORTAL").Range("A3:Z1000").Copy
Sheets("FATURA KONTROL").Range("A3").PasteSpecial
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"

End Sub

 

[NADİR YILDIZ]

merhaba
sayın kulomer
öncelikle teşekkür ederim.
ancak ft kontrol sayfasına j sütununa kadar aktarmak istiyorum.z sütununa kadar olanlara ihtiyacım yok
başka bir makrolu çözüm üretebilir miyiz

iyi çalışmalar

 

[NADİR YILDIZ]

Arkadaşlar bu konuda yardım edebilirmisiniz

 

[Muzaffer Ali]

Merhaba.

Sheets("FATURA KONTROL").Range("A3").PasteSpecial

Satırını aşağıdaki ile değiştirin.

Sheets("FATURA KONTROL").Range("A3").PasteSpecial Paste:=xlPasteValues

 

[kulomer46]

Merhaba

Alternatif olarak aşağıdaki kod bloğunuda kullanabilirsiniz.

Selamlar...

Private Sub CommandButton1_Click()

son =Sheets("MİKRO PORTAL").Cells(65500, 1).End(xlUp).Row
Sheets("MİKRO PORTAL").Range("A3:J" & son).Copy
Sheets("FATURA KONTROL").Range("A3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"

End Sub

 

[NADİR YILDIZ]

Sayın dalgalıkur

teşekkür ederim

iyi çalışmalar

 

[NADİR YILDIZ]

sayın kulomer
teşekkür ederim

iyi çalışmalar

 

[NADİR YILDIZ]

Arkadaşlar tarihe göre sıralıyorum küçükten büyüğe ft no ya göreye de sıralamak istiyorum.yardımcı olurmusunuz

 

[NADİR YILDIZ]

arkadaşlar bu konuda yardımcı olurmusunuz

 

[kulomer46]

Merhaba

Fatura noya göre sıralama kodu aşağıdadır.

Selamlar...

Private Sub CommandButton3_Click()

Range("B6").Select
Range("A3:H2000").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

End Sub

 

[NADİR YILDIZ]

SAYIN kulomer bu makro kodu
aktarılan sayfada boş hücrelerde formül yoksa işe yarıyor
ancak benim aktarılan sayfada boş hücrelerde formül var.
sizin makronuzda formül olan ancak veri olanlarıda aktarıyor
makroyu çalıştırırsanız boş olanları üstte ft numarası olanları alta atıyor.
ben ft nosu olanları üste küçükten büyüğe sıralatmak istiyorum

 

[kulomer46]

Tekrar Merhaba

Aşağıdaki kod bloğu işinizi görecektir.

Selamlar...

Private Sub CommandButton3_Click()

sonb = Cells(65500, 2).End(xlUp).Row
For i = 1 To sonb
    If Len(Cells(i, 2)) < 1 Then Cells(i, 2) = ""
Next
sonb = Cells(65500, 2).End(xlUp).Row

Range("B6").Select
Range("A3:J" & sonb).Sort Key1:=Range("B6"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    
End Sub

 

[NADİR YILDIZ]

Üstat teşekkür ederim
sizi çok uğraştırdım hakkınızı helal edin

iyi çalışmalar

 

[kulomer46]

Üstat teşekkür ederim
sizi çok uğraştırdım hakkınızı helal edin

iyi çalışmalar

İşe yaraması ve sonuca ulaşmak güzel : )

Selamlar...