Parça numara ve isimleri diğer dosyadan şablona aktarmak

[caymans]

Parça numara ve isimleri diğer dosyadan şablona aktarmak.

Parça Listesi sayfasındaki verileri Raf Etiketi sayfasındaki şablonlara yerleştirmek.

Bunu yapmak mümkün mü ?

 

[İhsan Tank]

Parça numara ve isimleri diğer dosyadan şablona aktarmak.

Parça Listesi sayfasındaki verileri Raf Etiketi sayfasındaki şablonlara yerleştirmek.

Bunu yapmak mümkün mü ?

merhaba
B2 hücresine

=EĞER(B1="";"";DÜŞEYARA(B1;'PARÇA LİSTESİ'!$A$2:$B$65536;2;0))

bunu
D2 hücresine

=EĞER(D1="";"";DÜŞEYARA(D1;'PARÇA LİSTESİ'!$A$2:$B$65536;2;0))

bu formülü kopyalayın.
diğerlerine yazdığınız bu kodları kopyalayın.

 

[caymans]

merhaba
B2 hücresine

=EĞER(B1="";"";DÜŞEYARA(B1;'PARÇA LİSTESİ'!$A$2:$B$65536;2;0))

bunu
D2 hücresine

=EĞER(D1="";"";DÜŞEYARA(D1;'PARÇA LİSTESİ'!$A$2:$B$65536;2;0))

bu formülü kopyalayın.
diğerlerine yazdığınız bu kodları kopyalayın.

Üstadım çok teşekkürler bunu vba macro ile yapılması mümkün mü pekala ?

 

[İhsan Tank]

Üstadım çok teşekkürler bunu vba macro ile yapılması mümkün mü pekala ?

elbette mümkündür mümkün olmayan bir şey yok
ama bana göre gerek yok yerleşik fonksiyonlar işinizi görüyorsa problem olmaz diye düşünüyorum
ama genede konuyu kilitlemeyin arkadaşlar makro konusunda yardımcı olsunlar

 

[caymans]

Bu işlemi macro ile yapabilecek üstatlar ; yardımcı olabilir mi?

 

[excel03]

merhaba;

Sub xxc()
Dim seri1()
Dim seri2()
Dim kaynak1 As Range
Dim kaynak2 As Range

Dim hedef1 As Range
Dim hedef2 As Range
ss = Worksheets("PARÇA LİSTESİ").Cells(65536, "a").End(xlUp).Row
kalan = (ss - 1) Mod 2
If kalan = 1 Then ss = ss + 1
x = 1
ReDim seri1(ss - 1)
ReDim seri2(ss - 1)
Set kaynak1 = Sheets("PARÇA LİSTESİ").Range("a2:a" & ss)
Set kaynak2 = Sheets("PARÇA LİSTESİ").Range("b2:b" & ss)
Set hedef1 = Sheets("RAF ETİKETİ").Range("b1:b65536")
Set hedef2 = Sheets("RAF ETİKETİ").Range("d1:d65536")
For i = 1 To ss - 1
seri1(i) = kaynak1.Cells(i)
seri2(i) = kaynak2.Cells(i)
Next

For j = 1 To (ss - 1) / 2 * 3 Step 3
If j <> 1 Then
x = x + 2
hedef1.Cells(j) = seri1(x)
hedef1.Cells(j + 1) = seri2(x)

hedef2.Cells(j) = seri1(x + 1)
hedef2.Cells(j + 1) = seri2(x + 1)
Else
x = 1
hedef1.Cells(j) = seri1(x)
hedef1.Cells(j + 1) = seri2(x)

hedef2.Cells(j) = seri1(2)
hedef2.Cells(j + 1) = seri2(2)

End If

Next

End Sub

 

[caymans]

Teşekkürler...

Ellerine sağlık .

Macro olayında muhteşemsiniz.


Tekrar ellerinize sağlık...