makroda değişiklik yapılması

[arifbirgen]

Değerli arkadaşlar
Bu siteden aldığım dosyada verilerin dağıtıldığı sayfalarda
TOPLAM satırı oluşmaması için makroda değişiklik yaparsanız
memnun olurum.Şimdiden teşekkür ederim.

 

[hamitcan]

Sub Makro1()
git = ActiveSheet.Name
For i = 2 To WorksheetFunction.CountA(Worksheets("VERİ").Range("B2:B65000")) + 1
yer = Worksheets("VERİ").Cells(i, 3).Value
deger = 0
For r = 1 To ActiveWorkbook.Sheets.Count
If Sheets(r).Name = yer Then
deger = 1
End If
Next r

If deger <> 1 Then
Sheets.Add
On Error Resume Next
Sheets(ActiveSheet.Name).Name = yer
Sheets(yer).Move After:=Sheets(ActiveWorkbook.Sheets.Count)
For n = 2 To WorksheetFunction.CountA(Worksheets("VERİ").Range("B2:B65000")) + 1
If Worksheets("VERİ").Cells(n, 2).Value <> "" Then
If Worksheets("VERİ").Cells(n, 3).Value = Worksheets("VERİ").Cells(i, 3).Value Then

sat = WorksheetFunction.CountA(Worksheets(yer).Range("B2:B65000")) + 2

For m = 1 To 7
Worksheets(yer).Cells(1, m).Value = Worksheets("VERİ").Cells(1, m).Value
Worksheets(yer).Cells(1, m).Interior.ColorIndex = 4
Worksheets(yer).Cells(1, m).Font.Bold = True

If m = 1 Then
Worksheets(yer).Cells(1, m).Rows("1:1").RowHeight = 25.5
End If
Next m

For j = 1 To 7
Worksheets(yer).Cells(sat, j).Value = Worksheets("VERİ").Cells(n, j).Value

If j = 7 Then
Worksheets(yer).Cells(sat, j).NumberFormat = "_-* #,##0.00 €_-;-* #,##0.00 €_-;_-* ""-""?? €_-;_-@_-"
End If

Next j
Worksheets(yer).Cells(sat, 1).Value = sat - 1
sat = sat + 1

End If
End If
Next n

Worksheets(yer).Columns("A").ColumnWidth = 10
Worksheets(yer).Columns("B").ColumnWidth = 10
Worksheets(yer).Columns("C").ColumnWidth = 20
Worksheets(yer).Columns("D").ColumnWidth = 20
Worksheets(yer).Columns("E:G").ColumnWidth = 16
Worksheets(yer).Columns("H").ColumnWidth = 10
'Worksheets(yer).Cells([B65536].End(3).Row + 1, 2) = "TOPLAM"
'Worksheets(yer).Cells([B65536].End(3).Row, 2).Font.Bold = True
'Worksheets(yer).Cells([B65536].End(3).Row, 2).HorizontalAlignment = xlCenter
'Worksheets(yer).Cells([B65536].End(3).Row, 2).Interior.ColorIndex = 40

'Worksheets(yer).Cells([B65536].End(3).Row, 7).Formula = "=SUM(G2:G" & [D65536].End(3).Row & ")"
'Worksheets(yer).Cells([B65536].End(3).Row, 7).Font.Bold = True
'Worksheets(yer).Cells([B65536].End(3).Row, 7).Interior.ColorIndex = 40
Worksheets(yer).Cells([B65536].End(3).Row, 7).NumberFormat = "_-* #,##0.00 €_-;-* #,##0.00 €_-;_-* ""-""?? €_-;_-@_-"

End If

Next i
Sheets(git).Select
End Sub

şeklinde deneyin.

 

[arifbirgen]

Sn.Hamitcan hocam
Çok çok teşekkür ederim.İyi çalışmalar.

 

[kemalist]

"Y" SAYFASINDA "C5:IR5" ARASINDAKİ VERİLER "F"SAYFASINDA "B4" HÜCRESİNE;"C6:IR6" ARASINDAKİ VERİLER "F"SAYFASINDA "C4" HÜCRESİNE; "C7:IR7" ARASINDAKİ VERİLER "F"SAYFASINDA "D4" HÜCRESİNE; C8:IR8" ARASINDAKİ VERİLER "F"SAYFASINDA "E4" HÜCRESİNE; DİKEY YAPIŞTIRMAK İSTİYORUM.MAKROYLA NASIL YAPABİLİRİZ?
AŞAĞIDAKİ YAPMAYA ÇALIŞTIĞIM KOD ÇALIŞMADI.

İLGİNİZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM. DOSYA EKTEDİR.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Y")Range("C3:IR3").Copy
Sheets("F").Range("B4").PasteSpecial (xlPasteValuesAndNumberFormats)
Sheets("Y")Range("C4:IR4").Copy
Sheets("F").Range("C4").PasteSpecial (xlPasteValuesAndNumberFormats)
Sheets("Y")Range("C5:IR5").Copy
Sheets("F").Range("D4").PasteSpecial (xlPasteValuesAndNumberFormats)
Sheets("Y")Range("C6:IR6").Copy
Sheets("F").Range("E4").PasteSpecial (xlPasteValuesAndNumberFormats)
End Sub

 

[hamitcan]

Sorunuzu yanlış yerde sordunuz herhalde.

 

[kemalist]

sorunuzu yanlış yerde sordunuz herhalde.

sayın hamitcan yazmış olduğum yanlış kodun düzeltilmesi isteği ile buraya giriş yaptım.

 

[hamitcan]

Sub TersYapistir()
    Sheets("Y").[B:C].ClearContents
    Sheets("Y").UsedRange.Copy
    Sheets("F").[B4].PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Application.CutCopyMode = False
End Sub

 

[sweetf.t]

arkadaşlar meraba çok acil yardıma ihtiyacım var dosyayı gönderemiyorum bil yasaklı burda anlatsam yardımcı olursanız çok sevinirim çok zor durumdayım stok takibi yapıcam genel bi liste var o listeye kodları girdiğimde diğer sayfalardaki(ay ay olan stok satışlarının)genel listemde miktarıyla çıkmasını istiyorum 2500 kadar ürün var makrodamı yapmam lazım siz genel anlatsanız ben uygulamaya çalışırım şimdiden çok teşekkürler

 

[hamitcan]

arkadaşlar meraba çok acil yardıma ihtiyacım var ekteki dosyada stok analiz dosyasına kodu girdiğimde diğer ayların stok miktarlarının stok analiz sayfasına gelmesini istiyorum. çok acil yardımcı olursanız sevinirim teşekkürler

Sorunuzu, ayrı başlıkta sorun ve bir örnek dosya ile destekleyin.