Skip to main content

AccessTr.neT


Verileri Aktar Ve Dosya Oluştur

Verileri Aktar Ve Dosya Oluştur

Çözüldü #1
İyi günler ekli dosyada veri sayfasında B10 :AR89 hücre aralığındaki istif numarası ,çapı,boyu ve adedi yazılı verileri makro ile istif sayfasına istif numarası,çapı,boyu ve adedi yazılı olanları aktarıp ;masa üstüne Ebat Listesi Klasörü ve bu klasörün içerine istif numarasının yazılı olduğu isimle istif sayfasını kaydedebilir miyiz. İnşaallah böyle bir makro yapılabilir. Yardımınızı bekliyorum. Saygılar
Not : C5 hücresindeki istif numarasının istif sayfasındaki gibi bütün aktarılan satırların karşısına yazacak
Not: İstif sayfasında el ile girilmiş verileri makro ile atacak

Dosya yüklemeyi unutmuşum .Dosya ektedir
.rar Ornek.rar (Dosya Boyutu: 56,91 KB | İndirme Sayısı: 2)
Son Düzenleme: 13/04/2020, 13:42, Düzenleyen: baho.
Cevapla
#2
Alttaki kod kullanılabilir.

Visual Basic Code
Sub aktar()

Dim i As Integer, j As Byte, say As Integer
Dim syfveri As Worksheet
Set syfveri = Sayfa7

Dim syfistif As Worksheet
Set syfistif = Sayfa1

say = 2
syfistif.Range("A2:D" & Rows.Count).ClearContents
With syfveri
    For i = 10 To 89
        For j = 2 To 44 '44 ar sütun no
            If LCase(.Cells(9, j).Value) = "adet" And _
               Len(.Cells(i, j).Value) > 0 And .Cells(i, j).Interior.ColorIndex = 6 Then '6 demek sari renk
                syfistif.Cells(say, 1).Value = .Cells(5, "C").Value
                syfistif.Cells(say, 2).Value = .Cells(i, "A").Value
                syfistif.Cells(say, 3).Value = .Cells(8, j).Value
                syfistif.Cells(say, 4).Value = .Cells(i, j).Value
                say = say + 1
            End If
        Next
    Next
End With
MsgBox "islem tamam", vbInformation, "Aktrama"
Set syfveri = Nothing
Set syfistif = Nothing
End Sub
.rar Ornek.rar (Dosya Boyutu: 62,84 KB | İndirme Sayısı: 5)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da